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6.1 RECORD DESCRIPTION ENTRIES 


Every file description entry must 
be immediately followed by a des- 
cription of each type of record con- 
tained in the file; for example, if a 
file contains four different types of 
records, there will be four record 
descriptions below the file descrip- 
tion entry. A record description con- 
sists of one or more entries, each 
ending in a period. These entries in- 
dicate, among other things, the pro- 
grammer-supplied names assigned 


to the record and its sub-fields, their 
length, and the format in which the 
data is represented, i. e. binary, 
packed decimal, display, etc. Re- 
cords are normally made up of sev- 
eral smaller items - or fields and 
before studying the format of a record 
description entry, it would be useful 
to briefly study some terms which 
will be used later. The S/360 COBOL 
terms for units of data and their def- 
initions are given below. 


Term 

Definition 

Item 

An area used to contain data. In general, the 
same as a 'field'. 

Group Item 

An item that is composed of smaller items. 

Elementary 

Item 

An item that is not composed of smaller items. 

Independent 

Item 

Any item that is not a record nor part of a record. 
Must be an elementary item. Used as a work area or 
to contain constants in the Working-Storage Section. 

Data Record 

The most inclusive item usually, although not always, 
a group item. 


If the sub-fields of a record are 
described by record description en- 
tries, the record is a group item. If 
none of the fields are described, the 
record is an elementary item. A 
group item can consist of elementary 
items, smaller group items, or a 
mixture of elementary and group 
items. One thing should be stressed, 
however. The terms 'group' and 
'elementary' do not have any relation 


to the size of the item. An elementary 
item can, for example, be 200 bytes 
in length while a group item could be 
two bytes in length. The terms refer 
only to the organization of the item 
and its relationship to other items. As 
an example, the entry below describes 
a record as an elementary item since 
none of the fields making up the re- 
cord are described. 
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01 DETAIL- RECORD, PICTURE IS X( 80). 


In contrast, the same record is 
described below as a group item. 


01 DETAIL- RECORD. 


02 

PART -NUMBER, 

PICTURE 9(5). 

02 

FILLER, 

PICTURE X(5). 

02 

DESCRIPTION, 

PICTURE A(30). 

02 

FILLER, 

PICTURE X(30). 

02 

ACTIVITY. 



03 RECEIPTS, 

PICTURE 9(5). 


03 WITHDRAWALS, PICTURE 9(5). 


In the above illustration, the re- 
cord as a whole is a group item. The 
items which make up the record are, 
with the exception of the last 02 en- 
try, described as elementary items. 
The last 02 entry is a group item con- 
sisting of two elementary items. 


Now that we are familiar with the 
terms which will be used, let's turn 
to the format of a record description 
entry. The general format of an en- 
try is: 


\ data-name ( r— -i 

level-number (FILLER ) IREDEFINES- claus^ej 

PICTURE- claus elj 

|~ BLANK- clausej 

OCCURS- clausej 

VALUE- clause~| 

F JUSTIFIED RIGHT 

[USAGE- clause] 



IL. 
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From the preceding text we have 
seen that a record description can 
consist of a single entry (where the 
record is described as an elementary 
item) or as a series of entries (where 
the record is described as a group 
item). In general, the format of an 
entry follows that shown previously. 
However, detailed entries may vary 
depending upon the type of item, e. g. 
elementary or group, and the usage 
of the item. Every entry will, how- 
ever, include a level number and a 
data-name or the reserved word 
FILLER. 


Level Numbers and Data-Names 

As we have learned previously, the 
permissible level numbers are 01 
through 49; 77 and 88. Level-number 
77 is used to indicate an independent 
item in the Working-Storage Section. 
Level-number 88 is used to differen- 
tiate between a data-name and a con- 
dition-name. Level-numbers 01 
through 49 are used, along with level- 
number 88, to construct record 
description entries in both the File 
Section and the Working-Storage Sec- 
tion. Level-number 01 always indi- 
cates the record as a whole regard- 
less of whether the record is des- 
cribed as a group or elementary 
item. Level-numbers 02 through 49 
are used to describe the items which 
make up the record. Level-numbers 
are assigned by the programmer in a 
manner which will indicate the rela- 
tionship of the items making up the 
record to each other. The items which 
make up a record are described in the 
order in which they appear in the re- 


cord, reading from leftto right. That 
is, with our record layout in front of 
us, we begin describing the fields 
starting with the leftmost field and 
proceeding towards the right. 


Each level-number must be fol- 
lowed by a data-name or the reserved 
word FILLER. Data-name is a pro- 
grammer-supplied name which will 
be used to refer to either the record 
or one of the fields in the record. The 
reserved word FILLER is used to in- 
dicate either unused portions of the 
record or fields in the record which 
will not be referenced in this program. 
Since the compiler obtains the record 
length fromthe record description en- 
try, each position in the record must 
be described in order to provide the 
compiler with the correct number of 
positions. Blank positions in the re- 
cord or unreferenced data fields can- 
not be omitted from the description 
without causing an erroneous count. 

As an illustration of the assign- 
ment of level-numbers and data- 
name s and the use of the word FIL- 
LER, let's look at Figure 1 which 
shows a card record containing four 
fields of information. 


The record contains four fields 
which are not further sub-divided and 
will be described as elementary items. 
In addition, the record contains two 
blank fields - cols. 21-27; cols. 40- 
80 - whichmust be included in the re- 
cord description entry. The assign- 
ment of level-numbers anddata-names 
is illustrated below. 
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01 ORDER- RECORD 


02 ITEM- NUMBER 
02 CUSTOMER-NUMBER 
0 2 FILLER 
02 QUANTITY 
0 2 SALE -AMOUNT 
02 FILLER 


V. 


ITEM NO. 


i i j i s t i i a io 

1111111111 

2222222222 
3333333333 
4444444444 
5555555555 
6 6 6 6 6 6 6 6 6 6 
7 7 ? 7 J 7 J 17 1 


9999999999 

l I 3 « 5 B 1 8 ! IG 
JTC 50PI 


CUSTOMER NO. 

0000000000 

II II II l< IS IS II II 19 ID 

1111111111 

2222222222 
3333333333 
4444444444 
5555555555 
6 6 0 0 0 0 6 G 0 6 
1 1 7 1 1 7 7 7 1 1 


0 0 0 0 0 0 0 

|lt I! 13 11 IS IS 21 

1111111 


9999999999 

ill I! II II IS IS II IS 19 ID 


22222222 

33333333 

4 4 4 4 4 4 4 

5 5 5 5 5 5 5 
0 6 6 6 6 6 6 
7 7 7 1 7 7 7 


9 9 9 9 9 9 9 

III II 23 II IS IS 111 


QT Y 


0 0 0 0 

|ll 29 3D 3|| 

1 1 1 


2 2 
3 3 

4 4 4 4| 

5 5 5 5 

6 6 6 6 
7 7 7 7 


AMOUNT 

OF 

SALE 


32 31 31 3S 36 3! 31 39 


111111 
22222222 
33333333 
44444444 

5 5 5 5 5 5 5 

6 6 6 6 6 6 6 
77777777 


32 33 31 3S 36 31 31 39 




|40 41 42 43 44 45 46 47 41 49 50 51 52 53 54 55 56 57 5B 59 60 61 62 63 64 6b 66 67 68 69 70 71 77 73 74 75 76 II '8 79 80 

1111lliiil1lllliii)!liniiill1l11illini1 


222222222222222222222222222222222222222222 

333333333333333333333333333333333333333333 

44444444444444444444444444144644444444444 

555555555555555555555555555555555555555555 

666666666666666666666666666666666666666606 

77777777777777777777777777777777777777777 


'99999999999999999999999999999999999999999999999999999 


40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79-80 

PRINTED _1N - U S A 


J 


Figure 1 


The record-name is 'ORDER-RE- 
CORD' as defined in the 01 entry. 
Each of the fields in the record has 
been assigned level-number 02 al- 
though in this example we could have 
used any level-number up to 49 to 
describe the fields. Data-names 


(ITEM-NUMBER, CUSTOMER- NUM- 
BER, etc. ) have been as signed to each 
of the fields since all of them will be 
referenced by the program. FILLER 
has been used to indicate blank por- 
tions of the record. 
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Figure 2 shows the same card with 
two additional fields; date and store 
number. The date field is further 
divided into three sub-fields for 
month, day, and year. If our program 


were to reference the three sub-fields 
individually, we would have to des- 
cribe our record as shown in Figure 

3. 



Figure 2 


01 ORDER- RECORD. 

02 

ITEM-NUMBER 

02 

CUSTOMER-NUMBER 

02 

FILLER 

02 

QUANTITY 

02 

SALE -AMOUNT 

02 

FILLER 

02 

DATE 


03 MONTH 

03 DAY 

03 YEAR 

02 

FILLER 

02 

STORE-NUMBER 

02 

FILLER 


Figure 3 
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The date field in the record des- 
cription is a group item consisting of 
three elementary items. These ele- 
mentary items have been assigned 
level- numbers with a greater value 
than the level-number assigned to the 
group item to which they belong. In 
general, the higher the level-num- 
ber of an item, the less inclusive it 
is. The compiler recognizes the end 
of a group item when it encounters a 
level- number equal to or lower than 
the level-number of the group item. 
Note that FILLER must be used in 
this example to indicate ' the blank 
column (column 40) between the 
SALE- AMOUNT and DATE fields. If 
we omitted this indication, the com- 
piler would assume that DATE began 
in column 40. For the same reason, 
the two blank fields in columns 47- 
BO and 56-80, have also been indica- 
ted by the reserved word FILLER. 

In an 01 level entry, data-name is 
the name of the record. This name 
must be the name - or one of the 
names - specified in the DATA RE- 
CORD clause in the FD entry. Data- 
nam.es used in other record descrip- 
tion entries can be any symbolic name 


as long as they follow the rules for 
programmer- supplied names. The 
main thing to avoid is using a re- 
served word. 

Unlike assembly language pro- 
graming, COBOL permits the pro- 
grammer to assign the same sym- 
bolic name to more than one data 
item. When this is the case, any ref- 
erences to these items in the Pro- 
cedure division must be 1 qualified' so 
that the compiler will understand 
whichitemis being referenced. 'Qua- 
lification' is accomplished by giving 
the name of the referenced item plus 
the name or names of items to which 
it belongs. The names of the other 
items are called 'qualifiers'. Qua- 
lifiers are written after the name 
being qualified. Each qualifier must 
be preceded by the reserved words 
OF or IN. As an example of qualifi- 
cation, let's assume that the name 
DATEwas assigned to a field in a re- 
cord named ORDER- RECORD and al- 
so to afield in another record named 
ITEM- MASTER. If we wished to 
move the date field in ORDER- RE- 
CORD, our statement in the Procedure 
division would be - 


MOVE DATE IN ORDER- RECORD TO HOLD-DATE. 


DATE is the qualified name and 
ORDER-RECORD is the qualifier. 
When the compiler processes this 
statement it will be able to determine 
which date field is intended. When- 
ever two or more items have been 
assigned the same name, their names 
must be qualified. Each name must 
have at least one qualifier that is dif- 
ferent from any possible qualifier of 
the others. The highest - or last - 
qualifier must be a unique name. In 


the File section, the highest possible 
qualifier is the name of a file which 
means that we can assign duplicate 
record name as long as they are in 
different files. In the Working-Stor- 
age section, no file description (FD) 
entries appear, consequently the high- 
est possible qualifier is a record- 
name. As an example of the assign- 
ment of duplicate data- names, let's 
look at the portion of a record des- 
cription shown below. 
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01 ITEM- 

MASTER. 

02 

STYLA 


03 

BLUE 



04 SOLD 

04 ON- HAND 


03 

RED 



04 SOLD 

04 ON-HAND 

02 

STYLEB 


03 

BLUE 



04 SOLD 

04 ON-HAND 


If we wished to refer to the field in- 
dicated by the arrow in the above re- 


cord description, our Procedure divi- 
sion statement would be - 


MOVE ON- HAND IN BLUE IN STYLA TO 


ON-HAND is the qualified name 
and BLUE and STYLA are the quali- 
fiers. Note that 'MOVE ON-HAND IN 
STYLA TO . . . ' is not correct since 
there are two ON-HAND fields in 
STYLA. Our statement must indicate 
which ON-HAND is meant. For the 
same reason, the following statement 
is also incorrect: MOVE ON-HAND IN 


BLUE TO ... . The compiler would 
not be able to determine whether we 
meant ON- HAND IN BLUE in STYLA 
or STYLB. 

Let's look at one more example of 
a record description containing dup- 
licate record names. 
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02 SALES -AC TIVITY 

03 

TOTAL-SALES 

03 

ITEMA 


04 TOTAL-UNITS 


04 TOTAL-SALES 


Stop for a moment and see if you 
can discover what is wrong with this 
description. 

In the Procedure division, we could 
refer to the second TOTAL-SALES 
field by writing the statement - MOVE 
TOTAL-SALES IN ITEMA IN SALES- 
ACTIVITY„ However, if we tried to 
refer to the first TOTAL-SALES field 
with the statement - MOVE TOTAL- 
SALES IN SALES- ACTIVITY - the 
compiler would not know which field 
we meant. The reason for this is that 
SALES- AC TIVITY is a group item 
which, according to the description we 
have provided the compiler, contains 
two TOTAL-SALES fields . In a situa- 
tion like this, the easiest way out is 
to change one of the names. 

There are two level-numbers which 
we have not yet discussed and these 
are level numbers 77 and 88. Level- 
number 77 will be examined in con- 
nection with our discussion of the 
function and format of the Working- 
Storage section. Level-number 88 is 
used in conjunction with the VALUE 
clause and will be discussed when we 
begin our study of this clause. 

The record description entries 
which have been presented thus far, 
have not been complete entries. Most 
entries consist of one or more clauses 
in addition to the level-number and 


data-name elements. We'll begin our 
study of these clauses with the two 
clauses most frequently used - the 
PICTURE clause and the USAGE 
clause. 


PICTURE Clause 

In our study of the elements of a 
COBOL program, we learned that 
pictures are used in the Data division 
to describe the characteristics of data, 
workareasor constants. The charac- 
teristics which can be indicated are: 

a. Length of the item 

b. Class (numeric, alphabetic, alpha- 
numeric) 

c. Location of an assumed decimal 
point 

d. Presence of a sign 

e. Editing pattern 

An entry for an elementary item 
must have a picture clause included. 
Group items must not have a picture 
clause within their descriptions. In 
other words, the characteristics of 
elementary items, and only elemen- 
tary items, must be described by a 
picture clause. The format of the 
Picture clause is: 
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PICTURE IS 


alphabetic form 
< alpha-numeric form 
numeric- form 
report- form 


The alphabetic-form option is used 
when the data item contains only let- 
ters of the alphabet and/or spaces. 
The letter 'A' is used to indicate that 
the item is in alphabetic form and the 
number of A' s in the picture indicates 


the size, or length, of the item. For 
example, if a record contained a five 
position field in which the name of a 
state was placed, our entry would be 
as follows: 


02 STATE- NAME PICTURE IS AAAAA. 


But what if we had a field contain- 
ing an alphabetic item 35 positions in 
length? Remember, the number of 
characters in a picture cannot exceed 
30. Secondly, even if we could ex- 
ceed 30 characters in our picture, it 
would be extremely easy to commit 
an error in the number of A's writ- 
ten. For example, 34 or 36 A's in- 


stead of 35. Fortunately, COBOL al- 
lows us to write one A to indicate al- 
phabetic form and then write the num- 
ber of characters in the field as an 
unsigned numeric literal enclosed in 
parentheses. For example, our state- 
name field could be described with 
either of the two pictures shown be- 
low. 


02 

STATE- NAME 

PICTURE IS AAAAA. 

02 

STATE- NAME 

PICTURE IS A(5). 
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To describe our 35 position alpha- 
betic field, our picture clause would 


be written as: 


PICTURE IS A(35). 


Our more thing. The rule con- 
cerning a maximum length of 30 cha- 
racters in a picture deals with the 
number of characters used to des- 
cribe the item and has nothing to do 
with the length of the item itself. In 
the example given above, we have 
described a thirty-five position item 
with five character s ; A, (, 3, 5, and). 
We could not, however, have written 
thirty-five A's since this would have 
violated the rule. 


The letter 'X' is used to denote an 
alpha-numeric item. Alpha-numeric 
items may consist of any combination 
of the characters, letters, digits, 
spaces, special characters, etc. As 
an illustration, let's assume that a 
record contains a 40 position field in 
which an address is located. The ad- 
dress will consist of a mixture of let- 
ters, digits and spaces; therefore our 
picture would be: 


02 ADDRESS PICTURE IS X(40). 


Assuming the address field con- 
tains a 20 position field for the street 
address, a 10 position field for the 
city name, and a 10 position field for 


the state name and we needed to refer 
to these fields individually, our en- 
tries would then be: 


02 ADDRESS. 


03 

STREET 

PICTURE X(20) . 

03 

CITY 

PICTURE X(10). 

03 

STATE 

PICTURE X(10). 
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Notice that in this description, the 
02 level entry does not have a picture 
clause since it is a group item. 
STREET has b een given a picture of 
'X' since it probably will contain a 
mixture of letters, numbers and 
spaces. CITY and STATE could have 
been given a picture of 'A' inasmuch 
as they would only consist of letters 
and spaces. However, 'X' is perfect- 
ly valid in this case. 


The numeric-form option is used 
to describe a numeric field and the 
digit 9 functions as the letters A and 
X in the alpha and alpha-numeric for- 
mats. If we were to write the picture 
for a five position numeric item con- 
taining an account number, either of 
the two clauses shown below would be 
permis sible: 


02 

ACCOUNT-NUMBER 

PICTURE IS 99999. 

02 

ACCOUNT-NUMBER 

PICTURE IS 9(5). 


In addition to the digit 9, the nu- 
meric-form option may include the 


characters V, P, and S. The function 
of these characters is given below: 


Character 

Meaning 

V 

Used to indicate the location of an assumed decimal 
point. Storage is not reserved for this character. 

If, for example, a five position numeric field 
contained three significant digits and two decimal 
places, the picture of this item would be: 


PICTURE IS 999V99 


Only one V may appear in a picture. The V enables 
the compiler to ensure that decimal points are alined 
in the event that editing or arithmetic operations are 
performed on the item. 

S 

Indicates the presence of an operational sign. If used, 
must be the leftmost character of the picture. Where 
the item is in binary format (USAGE clause specifies 
COMPUTATIONAL) an 'S' is required since binary 
items are always signed. For decimal items, 'S' in- 
dicates that the item contains a sign, i. e. it can be 
either positive or negative. 
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p 

Indicates leading or trailing zeros. These zeros are 
not contained in the record nor will the compiler re- 
serve storage for them. For example, if we had a 
data item consisting of a six digit decimal fraction 
whose three high-order digits would always be zeros, 
we could conserve space in the record by including 
only the three low- order digits. When the time came 
to process this item, our picture would be written as 
follows : 


02 FRACTION PICTURE IS VPPP999 


If FRACTION contained the digits 412, it would be dealt 
with in an arithmetic procedure as if it contained . 000412. 
Converselv, if we were omitting three low-order zeros, 
our picture would be: 


02 ITEM PICTURE IS 999PPPV 


Assuming ITEM also contained 412, it would be dealt 
with as if it contained 412000. The use of the letter 
'V* is optional, however, when used it must precede 

P's representing high-order zeros and follow P's 
representing low-order zeros. 


The report- form option is used for 
editing purposes and will be covered 
later in this course. In summary, the 
Picture clause indicates the length 
and class of the item, the location of 
an assumed decimal point, presence 
of a sign, and the editing pattern. 
Elementary items must have a picture 
clause contained in the entry; group 
items must not have a picture clause. 
If the picture of an item contains one 
or more X's, it may be used to store 
any combination of letters, digits, 
spaces or special characters. If the 


picture contains one or more A' s it 
may be used to store only letters or 
spaces. If the picture contains one or 
more 9's, and possibly S, V, or P, it 
will be used to store only digits and 
possibly a sign. 

USAGE Clause 

The USAGE clause can be used for 
both group and elementary items and 
is used to indicate the format of the 
data that is stored in the item. The 
format of the clause is: 
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USAGE IS 1 


DISPLAY 

COMPUTATIONAL 
COMPUTATIONAL- 1 • 

COMPUTATIONAL- 2 
COMPUTATIONAL- 3 J 


The use of the reserved words 
'USAGE IS 1 is optional and if, for ex- 
ample, the usage of an item was DIS- 
PLAY, the clause could be written as 
USAGE IS DISPLAY, USAGE DIS- 
PLAY, or simply - DISPLAY. The 


options COMPUTATIONAL- 1 and 
COMPUTATIONAL- 2 concern data in 
the floating-point format and will not 
concern us in this course. The mean- 
ing of the remaining usage words is 
given below: 


U sage 

Meaning 

DISPLAY 

Data is in EBCDIC format; one character per 
byte. If the item is used to store a number, the 
rightmost byte may contain a sign in addition to 
the digit. 

COMPUTATIONAL 

Data is in binary format. One binary digit is stored 
in each bit of the item. The leftmost bit always con- 
tains a sign. 

COMPUTATIONAL- 3 

Data is in packed decimal (internal decimal) format. 
Two decimal digits are stored in each byte except for 
the rightmost byte which contains one digit and sign. 


DISPLAY is the most common for- 
mat and, as a matter of fact, if the 
clause is omitted from an entry, the 
compiler will assume 'USAGE IS DIS- 
PLAY 1 . COMPUTATIONAL and COM- 
PUTATIONAL- 3 refer to the formats 
used by the 360 when performing arith- 
metic operations. 


The clause may be used at the ele- 
mentary or group item level. How- 
ever, whenthe usage for a group item 
is specified, it applies to all items 
within that group. Let's look at some 
entries for elementary items which 
include the picture and usage clauses. 
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02 

ACCOUNT-NUMBER 

PICTURE IS 9999 

USAGE IS DISPLAY. 

02 

ACCOUNT- TOTAL 

PICTURE S9(5)V99 

COMPUTATIONAL. 

02 

MINOR- TOTAL 

PICTURE S999V99 

USAGE COMPUTATIONAL- 3. 

02 

NAME 

PICTURE IS A(25) . 



The first entry describes an item 
which will be used to contain a four 
digit account number in EBCDIC for- 
mat. Since the compiler assumes DIS- 
PLAY usage when the clause is omit- 
ted, we could have left the clause out 
of this entry. The second entry des- 
cribes an area which will hold the 
binary equivalent of a seven digit 
decimal number. Notice that even 
though 23 binary digits are required 
to represent a seven digit decimal 
value, we still write our picture as 
if the data was in DISPLAY format. 
Also, that the picture of an item 
whose use is COMPUTATIONAL must 
include the 'S' character since binary 
data is always signed positive or neg- 
ative. The third entry describes an 


item which will hold data in the pack- 
ed decimal format. Again our picture 
is given as if the data were in DIS- 
PLAY format even though the five 
packed digits can be contained in only 
three bytes. The last entry describes 
an area which will hold alphabetic 
data, 25 characters in length. The 
usage clause has been omitted and 
DISPLAY will be assumed by the 
compiler. 

Previously, we had learned that 
when the usage of a group item is 
specified, it applies to all items with- 
in that group. Let' s look at an ex- 
ample in which the usage of a group 
item is specified. 


02 ITEM- LOCATION USAGE IS DISPLAY. 

03 BIN-NUMBER PICTURE 999. 

03 WAREHOUSE- NUMBER PICTURE 99. 
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Actually, we could have omitted 
the usage clause from the 02 level 


entry and achieved the same result, 
as shown below - 


02 ITEM- LOCATION. 

03 BIN-NUMBER PICTURE 999. 

03 WAREHOUSE- NUMBER PICTURE 99. 


Now, let's take the same group 
item only this time WAREHOUSE- 


NUMBER is to be stored in packed 
decimal format. 


02 ITEM- LOCATION. 

03 BIN-NUMBER PICTURE 999. 

03 WAREHOUSE- NUMBER PICTURE 99 COMPUTATIONAL- 3. 


This description seems to con- 
flict with two rules that we learned 
earlier in this lesson. First, that 
DISPLAY usage is assumed when the 
clause is omitted. Second, that when 
the usage of a group item is speci- 
fied, it applies to all items within 
that group thus implying that no items 
within that group may have a different 
usage. From this, it would seem 
that the preceding description vio- 
lates these rules by specifying a 
different usage for WAREHOUSE- 
NUMBER than that implied for ITEM- 


LOCATION. In actual fact, however, 
our description is perfectly accept- 
able. When the usage of a group item 
is not specified, its usage is the same 
as the combined usages of the ele- 
mentary items it contains. It is per- 
fectly permissible for a group item 
to contain items with varying usages. 
In other words, DISPLAY usage will 
not be automatically assumed for a 
group item which contains items with 
other usages. If, however, our des- 
cription had been as follows: 
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02 ITEM- LOCATION USAGE IS DISPLAY. 

03 BIN-NUMBER PICTURE 999. 

0 3 WAREHOUSE- NUMBER PICTURE 99 COMPUTATIONAL- 3. 


we would have then violated the rules. 
In this case we specified DISPLAY 
usage for the group item and then 
specified a differentusage for one of 
the elementary items in the group. 
The rule to remember then is that if 
you specify the usage of a group item, 


you cannot specify a different usage 
for any item in that group. 

Certain combinations of pictures 
and usages are invalid. The valid 
combinations are shown below. 


Picture 

Valid Usages 

Alphabetic (PICTURE IS A) 

Alphanumeric (PICTURE IS X) 

Numeric (PICTURE IS 9) 

DISPLAY 

DISPLAY 

DISPLAY, COMPUTATIONAL, COMPUTATIONAL- 3. 


From this we can see that alpha- 
betic and alphanumeric data must 
have their usage specified as DIS- 
PLAY. Numeric data, on the other 
hand, may have any usage. Put in 
another way, an item which has DIS- 
PLAY usage may have any kind of 
picture. However, an item which has 
COMPUTATIONAL or COMPUTA- 


TIONAL- 3 as its usage, must have a 
numeric picture. 

REDEFINES Clause 

The REDEFINES clause enables us 
to give another name or description 
to an itempr eviously described. The 
format of the clause is: 
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level-number data- name- 1 REDEFINES data-name-2 


When an item is being redefined, 
the word REDEFINES must imme- 
diately follow data-name-1 which 
represents the new name being as- 
signed to the item. Data-name-2 is 
the name previously assigned to the 
item. The remainder of the entry 


would consist of picture, usage, and 
any other necessary clauses. The 
entry which redefines an item, must 
immediately follow the entry origi- 
nally defining the item. Let' s look at 
an example where we wish to assign 
two names to an item. 


03 CREDIT PICTURE 9(5). 

03 DEBIT REDEFINES CREDIT PICTURE 9 (5). 


The first entry defines the item 
and assigns the name CREDIT to it. 
The second entry redefines the first 
item, this time assigning the name 
DEBIT to the item. When we define 
records and/or work areas, what we 
are actually doing is reserving stor- 
age. Redefinition of an item does not 
cause additional storage to be re- 
served. In this particular case, all 
we have done is to assign two dif- 
fer ent names to the same area. Some- 
where in the record there would be a 
code indicating whether the data con- 
tained in the item represented a credit 
or a debit and after testing the code, 
we could use the appropriate name to 
reference the data. Either name, how- 
ever could be used to refer to the item; 


redefinition in this case simply makes 
the program more understandable. 

Let' s look at another example of 
redefinition. As sume that each record 
in a file of transactions contains the 
units sold and the list price. The pro- 
gram is to multiply the list price by 
the units sold in order to arrive at the 
sale price. However, some of the list 
prices refer to a unit price which is 
in the format x. xxx while other s refer 
to a dozen price which is in the format 
xx. xx. There is a code in the record 
which will identify which format the 
price is in but we must provide for 
both formats in the record descrip- 
tion. Our entries would be: 
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02 UNIT-PRICE PICTURE IS 9V999. 

02 DOZEN-PRICE REDEFINES UNIT-PRICE PICTURE 99V99. 


Redefinition does not change any data 
stored in the area. For example, if 
the list price field of the record con- 
tained 1234 and we referred to it by 
the name UNIT- PRICE in an arith- 
metic operation, it would be dealt 
with as if it represented 1. 234. If, on 
the other hand, we referred to it by 
the name of DOZEN- PRICE it would 
be treated as 12. 34. In other words, 
the data remains the same but the 
manner in which it is treated changes. 
Consequently, when we redefine an 
item we must be sure that we use the 
correctname in any statements in the 


Procedure division. For example, if 
in error we used the name DOZEN- 
PRICE when we really meant UNIT- 
PRICE, we would have caused the 
value of the data to be increased by a 
factor of 10, thereby causing our cal- 
culations to be in error. 

The same area can be redefined 
several times as shown below. All 
redefinition entries, however, must 
immediatelyfollow the entry originally 
describing the item; no other entries 
may intervene. 


02 

X 

PICTURE 999. 


02 

Y 

REDEFINES X 

PICTURE 9V99. 

02 

Z 

REDEFINES X 

PICTURE 99V9. 


In addition to the foregoing, the 
following rules also apply in rede- 


fining an item; 
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a. In the File Section, the redefines clause may not be used 
at the 01 level. (If a file contains more than one type of 
record, we simply give their names in the DATA RECORDS 
clause and then describe each record with record description 
entries). 

b. Redefinition begins at data-name-2 and ends when a level- 
number equal to or less than data-name-2 is encountered. 

c. The level-numbers of data-name-1 and data-name-2 must be 
the same. 

d. The size of data-name-1 must not be greater than the size of 
the original item (data-name-2). 

e. Entries containing or subordinate to a redefines clause must 
not contain a VALUE clause unless they are condition-name 
entries . 


JUS TIFIED RIGHT C laus e 

The clause may only appear in an 


entry describing an elementary alpha- 
betic or alphanumeric item. The for- 
mat of the clause is: 


JUSTIFIED RIGHT 


Movement of data in the 360 pro- 
ceeds from left to right, high-order 
to low-order. The number of charac- 
ters moved depends on the size of the 
receiving field. If it is shorter than 
the sending field, movement stops 
when the receiving field is filled. If 
it is longer than the sending field, the 
extra low-order positions of the re- 
ceiving field are padded with spaces 
(blanks). The Justified Right clause 
enables the programmer to reverse 


this process and cause the data to be 
moved from right- to -left, low-order 
to high-order. If the receiving field 
is shorter, the extra high-order cha- 
racters will not be transferred from 
the sending field. If it is longer than 
the sending field, the extra high-order 
positions will be filled with spaces. 
An example of an entry in which Jus- 
tified Right is specified, is given be- 
low. 
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02 ITEM- DESCRIPTION PICTURE A(25) JUSTIFIED RIGHT. 


BLANK AND OCCURS Clauses 

The BLANK clause is used in edit- 
ing while the OCCURS clause is used 
inaprocess called subscripting. Both 
ofthese clauses will be covered later 
in this course when we study the tech- 
niques of editing and subscripting. 


VALUE Clause 

In the File Section, the VALUE 
clause may only appear in conjunc- 
tion with a level 88 entry. Later in 
this lesson, we will discuss the use 
of this clause in the Working-Storage 
section. Meanwhile, the format of a 
level 88 entry is: 


88 condition- name VALUE IS literal . 


Level 88 entries are used to as- 
sign a name to a value which may ap- 
pear in a record and may only be as- 
sociated with an elementary item. The 
condition-name assigned to the value 
can be used in a test in the Procedure 
division to determine if the item con- 
tains that value. For example, assume 


that a record contained a field for 
marital status, one byte in length. If 
the item contains the digit 1 it indi- 
cates single status. The digit 2 indi- 
cates married and the digit 3 indicates 
divorced. If it were necessary to test 
each record for marital status, we 
would write our entries as follows: 


02 MARITAL-STATUS, PICTURE 9. 
88 SINGLE VALUE IS 1. 

88 MARRIED VALUE IS 2. 

88 DIVORCED VALUE IS 3. 
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In the Procedure division we could 
then test marital status with the fol- 


lowing statements. 


IF SINGLE GO TO UNWED. IF MARRIED GO TO FAMILY. 
IF DIVORCED GO TO UNWED. GO TO ERROR. 


Notice that it is the level 02 entry 
which defines and reserves storage 
for the item by giving it a data-name 
(MARITAL-STATUS) and a picture. 
Level 88 entries do not reserve stor- 
age. They only allow the programmer 
to equate names to values which may 
appear in the item, in this case the 
digits 1, 2 or 3. These names may 
then be used in the Procedure divi- 


sion, usually in IF statements, in or- 
der to test the contents of the item. 

Condition-name entries do not have 
to be written when it is necessary to 
know the value contained in an item. 
We could write the following state- 
ments in the Procedure division and 
achieve the same result. 


IF MARITAL-STATUS = 1 GO TO UNWED. 
IF MARITAL-STATUS = 2 GO TO FAMILY. 
IF MARITAL-STATUS = 3 GO TO UNWED. 
GO TO ERROR. 


The use of condition-names, how- 
ever, usually makes a program more 
understandable since descriptive 
names are used when testing the item 
rather than the actual codes. One more 
thing about level-88 entries. Although 


our examples used only numeric lit- 
erals, alphanumeric literals are also 
permissible. However, they must fol- 
low the rules governing the formation 
and length of literals. 
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6.2 THE WORKING-STORAGE SECTION 


The Working-Storage section is 
used to define and reserve storage for 
work areas and constants. It may be 
omitted when constants and work 
areas are not used in the program. 
The entries which may appear in the 
section are of two types; independent 
item description entries and record 
description entries. All independent 
item descriptions must be defined as 
level 77 entries and appear before any 
record description entries. Record 
description entries use level numbers 
01-49 and are written last in the 
section. File Description (FD) entries 
do not appear in the Working-Storage 
section. 

Which type of description is used 
depends on the needs of the program. 
Independent items are not sub-divided 
and are written as elementary items. 
Record descriptions, on the other 
hand, must be sub-divided and writ- 


ten as group items. If, for example, 
we needed an area in which to store 
an account number, we would most 
likely use an independent item entry 
to reserve the necessary storage. In 
contrast, if we needed to store an 
item consisting of three distinct sub- 
items and it was necessary to refer- 
ence each of the sub-items, a record 
description entry would be used. (Note 
that although a record description may 
be written as an elementary item in 
the File Section, record descriptions 
must be written as group items in the 
Working-Storage Section). 

All clauses used in record des- 
cription entries in the File Section 
may be used when constructing entries 
in the Working-Storage Section ex- 
cept that the VALUE clause has ad- 
ditional functions. As you will re- 
member, the format of the VALUE 
clause is: 


VALUE IS literal 


Our purpose in including the Work- 
ing-Storage Section in a program is 
to reserve storage for work areas and, 
possibly, to establish constants re- 
quired by the program. The VALUE 
clause allows us to specify the initial 
contents of these areas at program 
load time. Its use is optional and when 
used, it can only be written at the ele- 
mentary level. 
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When writing a description for a 
work area, the VALUE clause may 
be used to specify that the area be 
cleared to, for example, blanks or 
zeros at the start of program execu- 
tion. Unless the VALUE of a work 
area is specified in its description, 
the contents of this area at program 
load time are unpredictable. This does 
not mean, however, that the VALUE 
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clause mustbe automatically included 
in each work area description. If, as 
an example, we need a temporary 
hold area in our program in which we 
will store data during the program, 
the initial contents of this area are 
not important. However, if we needed 
an area to serve as an accumulator 
into which amounts would be added. 


we would probably want to be sure 
that the area contained zeros at the 
start of the program. 

Let's look at an illustration of an 
independent item entry. We need an 
area in which to store a 25 character 
alphabetic description. Our entry 
would be: 


77 DESCRIPTION PICTURE A(25)J 


Since it is an independent item, 
level-number 77 is specified. The 
data-name is 'DESCRIPTION' and the 
picture specifies that it is alphabetic 
and 25 characters in length. DISPLAY 
usage is assumed. The VALUE clause 
has been omitted since we intend to 
move the data to this area, thereby 


erasing anything previously in the 
area. 

In the next example, an independent 
item entry is used to establish a con- 
stant consisting of the phrase 'AUG- 
UST 5, 1967'. 


77 DATE PICTURE X(14) VALUE IS 'AUGUST 5, 1967'. 


The picture is X (alphanumeric) 
since our constant contains letters, 
digits, spaces and a comma. The con- 
stant itself is specified by the VALUE 
clause as a non-numeric literal, i. e. 
enclosed in quotation marks. When 
our object program is loaded, this 


phrase will be entered into storage 
and be available to our program. 

The next two examples provide ad- 
ditional illustrations of the use of the 
VALUE clause. 
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77 CONSTANT PICTURE S999 VALUE 500 COMPUTATIONAL. 

77 ACCUMULATOR PICTURE S9(5) COMPUTATIONAL- 3 VALUE ZERO. 


The first entry establishes a con- 
stant which will contain the binary 
equivalent of 500 at program load 
time. The second entry establishes an 
area to be used as an accumulator. 
The COMPUTATIONAL- 3 usage indi- 
cates that the amounts accumulated 
are to be stored in packed decimal 
format. The VALUE clause uses the 


figurative constant ZERO to ensure 
that the area will be initialized to zero 
when our program is loaded. 

The next illustration shows how we 
could establish three areas in which 
we would store an item number, its 
description and its location. 


77 ITEM-NUMBER PICTURE 9(5). 

77 ITEM-DESCRIPTION PICTURE A(40). 
77 ITEM- LOCATION PICTURE X(5). 


Now, if in the Procedure division 
it became necessary to move these 
fields to an output record for example, 
it would require three moves. We can 


cut this down to one move by defining 
the items with a record description as 
shown below. 


01 ITEM-DATA. 

02 ITEM-NUMBER PICTURE 9(5). 

02 ITEM-DESCRIPTION PICTURE A(40). 
02 ITEM- LOCATION PICTURE X(5). 
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By combining our entries into a 
record description we can have ac- 
cess to all or some of the items. Us- 
ing record descriptions sometimes 
saves us hand-writing. As an illus- 
tration, assume that we need three 
areas in which to accumulate minor, 
intermediate and major totals. The 
totals are to be in packed decimal 


format. We could write three indivi- 
dual level 77 entries specifying the 
usage in each entry. We know, how- 
ever, that when a usage is specified 
for a group item, it applies to all 
items in that group. Therefore, we 
can define our three areas with a re- 
cord description and specify the us- 
age only for the level 01 entry. 


01 AMOUNTS COMPUTATIONAL- 3. 

0 2 MINOR PICTURE S9(4). 

02 INTERMEDIATE PICTURE S9(5). 
0 2 MAJOR PICTURE S9(6). 


Unfortunately, we cannot use the 
same technique if we wish to specify 
a value for the entries. The VALUE 
clause cannot be written at the group 


level. Consequently, if itwere neces- 
sary to specify starting values for our 
accumulators, we would have to write 
individual VALUE clauses. 


01 AMOUNTS COMPUTATIONAL- 3. 

02 MINOR PICTURE S9(4) VALUE ZERO. 

02 INTERMEDIATE PICTURE S9(5) VALUE ZERO. 
02 MAJOR PICTURE S9(6) VALUE ZERO. 
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At this point, it would be useful to 
look at an illustration which ties to- 
gether all the material covered in 
this and the preceding lessons. We 


are to write the Identification, En- 
vironment and Data division entries 
for the following program: 


The input is on cards which have the format shown in Figure 4. 
Output is to be punched into cards in the format shown in 
Figure 5. Both files will be read and punched by a 2540 
reader /punch. The program is to read cards and calculate 
sale price by multiplying the amount of items sold by the 
list price. List price can be in the format x. xxx or xx. xx 
referring to unit-price and dozen-price respectively. A code 
in column 58 identifies the format of the list price. If 
column 58 contains a 1, the list price is a unit price and 
is in the format x. xxx. If column 58 contains a 2, the list 
price is a dozen price in the format xx. xx. The program will 
require a work area in the Working-Storage Section in which 
multiplication will be performed. 


The coding is shown in Figure 6. 
The Identification division and its en- 
tries appear on lines 010 through 080. 
As required by the COBOL rules, the 
division begins with a division header 
entry which must appear on a line by 
itself. The paragraph headers are on 
lines 030 to 080 and their entries give 
the program name and author, the 
name of the installation, the dates on 
which the program was written and 
compiled, and remarks concerning the 
purpose of the program. 

The Environment division entries 
appear on lines 100 to 210. The Con- 
figuration Section, which must be in- 


cluded in every program, contains the 
Source-Computer and Object-Compu- 
ter paragraphs which state that our 
program will be assembled and run on 
a model E30 with 32, 768 bytes of stor- 
age. The Input- Output Section is op- 
tional but is included in our program 
because we will be processing input 
and output files. The File- Control 
paragraph consists of the two SELECT 
sentences on lines 180 to 210. The 
first sentence selects our input file 
and assigns it the device class of 
UNIT-RECORD (UNIT-RECORD must 
be specified for card and printed files) 
and specifies the device number as a 
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2540 reader. The second sentence 
performs the same functions for our 
output file. In both sentences, file- 
name is the same as ' external- file- 
name' . That is, LISTCARD has been 
specified as the name by which the 
file will be identified in the Data Divi- 
sion (file-name) and also as the name 
which will appear in the control card 
when the program is executed (exter- 
nal-file-name). This is not mandatory 
and external-file-name can be any 
name as long as it conforms to the 
rules for external-names. File-name, 
however, must appear in the FD en- 
try in the File Section which defines 
the file. We have omitted the I-O- 
CONTROL paragraph since no special 
input/output techniques are required. 

The Data Division begins on page 
2 of the coding, and the File Section 
header entry appears on line 0 30. Our 
input file is defined by the FD entry 
on lines 050 and 060. The file-name 
is LISTCARD and is the same name 
given in the sentence which selected 
this file in the Environment Division. 
The Recording Mode clause is option- 
al but if omitted, recording mode V is 
assumed. We have therefore included 
this clause and specified recording 
mode F (fixed-length). The Label Re- 
cord and Data Record clauses are 
mandatory in any file description en- 
try. Label records are specified as 
omitted and the record name which 
will appear in the associated record 
description is CARDIN. Note that 
there is only one period in an FD en- 
try which appears after the last 
clause. 

The record description follows 
immediately after the file description 
and is identified by the 01 entry on 
line 080. The record name is given 
as CARDIN which matches the name 
specified in the Data Record clause 
in the FD entry. All positions within 
the card record are identified by the 
02 level entries on the succeeding 
lines. The entry on line 140 redefines 
the entry on line 130. The specifica- 
tions of the program tell us that a 
code in column 58 of the record will 


identify the format of the list price. 
In order to test the code in the Pro- 
cedure division we will use condition- 
name entries but we must first de- 
fine the item with an 02 level entry. 
This is done on line 160 which speci- 
fies a data-name of PRICE-KEY and 
a picture of a one position numeric 
field. It might have been more mean- 
ingful if we gave this item the data- 
name of CODE but, unfortunately, 
CODE is a reserved word. The con- 
dition-name entries on lines 170 and 
180 as sign names to values which will 
appear in PRICE- KEY. The condition- 
name on line 170 is UNITP since both 
UNIT and UNITS are reserved words. 
By adding one letter we have changed 
it so that it does not have the identi- 
cal spelling. The last entry on line 
190 consists of the level number 02, 
the res erved word FILLER and a pic- 
ture of X( 22). If you refer to the il- 
lustration of the input card format, 
you will see that columns 73 - 80 con- 
tain an item number field. Because 
this field is not ref erenced by our pro- 
gram, we have decided to save some 
handwriting and write one entry which 
will include the blank positions in col- 
umns 59 - 72 and the item number 
field in 73 - 80. 

Our output file is defined by the FD 
entry on lines 010 and 020 of page 3. 
The record description appears on 
lines 040 to 080. Notice that the data 
names ACCT-NO and ACCT-NAME 
have been used previously in our des- 
cription of the input record. This 
means that any references to these 
fields in the Procedure Division must 
be qualified. 

The Working-Storage Section be- 
gins online 100 and is followed by two 
level 77 entries. The first entry re- 
serves the area in which multiplica- 
tion will be performed. The second 
entry redefines the first. 

The usage of all the data-items will 
be DISPLAY since no other usage was 
specified. As we progress, we shall 
see examples when specific usages 
will be required. 


Page 28. 


Lesson C 6 



In this lesson we have studied the 
general format of record description 
and independent item entries. The 
clauses which can be combined in con- 
structing an entry depend on the nature 
of the item being described. That is, 
whether the item is a group or ele- 


mentary item and if it is an elemen- 
tary item, is it alphabetic, alphanu- 
meric, etc. As an aid in constructing 
entries, a list of valid formats for 
each type of item is presented in Fig- 
ure 7. 
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A standard card form, IBM electro C61897,.is available for punching source statements from this form. 
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A standard card form, IBM electro C61897, is available for punching source statements from this form. 
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Figure 7. LIST OF VALID FORMATS BY TYPE OF ITEM 


GROUP ITEM FORMAT 



| data-name r 

i“ —i 

r- 1 

lev el- number 

1 FILLER j 

[REDEFINES- clause j 

OCCURS-clause 


E 


USAGE- clause 




ELEMENTARY ITEM FORMATS 
Alphabetic Item 

( * 

J data-name 

level-number / FILLER 


[^REDEFINES- clause^ ^OCCURS- clausej 
PICTURE IS alpha-form QjSAGE IS DISPLAY ^ 


[■ 


VALUE IS alphabetic- literal] [^JUSTIFIED RIGHT 




Alphanumeric Item 

! data-name 
FILLER 


[REDEFINES- clause] [OCCURS- clausej 
PICTURE IS alphanum-form [~USAGE IS DISPLAY^ 
QvALUE IS non-numeric-literal] [ ^JUSTIFIED RIGHt] 


Report Item 

\ data-name ) 

level-number j FILLER I REDEFINES- clause OCCURS-clause 


) num-form BLANK WHEN ZER _ 
PICTURE IS ) rep-form [“BLANK WHEN ZERO 


L 


p] 


D 


USAGE IS DISPLAY 


3 - 
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External Decimal Item 

! data-name I 
FILLER I 


[redefines - claus J] [occurs- clause] 

[usage IS display] PICTURE IS numeric-form 
[VALUE IS numeric-litera^ . 


Internal Decimal Item 

! data-name r _ — , __ _ 

FILLER { | REDEFINES- clause I I OCCURS- clause 


PICTURE IS numeric-form 


USAGE IS COMPUTATIONAL- 3 


VALUE IS numeric-literal 


Binary Item 


! data-name f _ -in — 

FILLER ( [REDEFINES- claus ej OCCURS- claus e 


PICTURE IS numeric-form 


USAGE IS COMPUTATIONAL 


VALUE IS numeric-literal 
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7.1 THE PROCEDURE DIVISION 


The Procedure division contains 
the statements which cause the actual 
processing of data. The entries in 
the Identification, Environment and 
Data divisions perform necessary- 
housekeeping functions but do not, by 

themselves, cause the processing of 

data. Tde Procedure division begins 
with a division header entry consist- 
ing of 'PROCEDURE DIVISION.' and 
nothing else may appear on the same 
line. The smallest unit in the division 
is the statement. Statements may be 
combined into sentences; sentences 
into paragraphs; paragraphs into sec- 
tions. 

A statement consists of a verb or 
the words IF or ON and any necessary 


operands. It is very similar in func- 
tion to a single instruction in an as- 
sembly language program although 
some COBOL statements will cause 
several instructions to be generated 
in the object program. 

A sentence contains one or more 
statements and must end in a period. 
For clarity, the statements contained 
in the sentence may be punctuated by 
commas or semicolons or the word 
THEN. All sentences must be con- 
tained within Margin B. In the ex- 
amples shown below, the first sen- 
tence consists of only one statement. 
The second example contains three 
statements . 


MOVE A TO B 0 

MOVE A TO B, MOVE C TO D, MOVE E TO F. 


Note that combining statements into 
sentences is not mandatory. In the 
second example above, each of the 


statements could have been written as 
a sentence as shown below. 


MOVE A TO B. MOVE C TO D. MOVE E TO F. 


Lesson C 7 


Page 1. 





Paragraphs consist of one or more 
sentences and mustbegin with a para- 
graph header entry. The paragraph 
name is created by the programmer 
according to the rules for program- 
mer-supplied names and may consist 
entirely of digits. The header entry 
must begin in Margin A and be fol- 
lowed by a period and a space. How- 
ever, sentences or statements may 
be written on the same line. Para- 
graph names fulfill the same purpose 
as symbolic names assigned to in- 
structions in assembly language pro- 
gram. That is, they provide a sym- 
bolic name which can be used as the 
operand of a branch statement. Cha- 
racter adjusting or relative address- 
ing is not possible in COBOL. There- 


fore, whenever it is necessary to 
branch to another sentence in a COBOL 
program, that sentence must be the 
first sentence of a paragraph. The 
name assigned to that paragraph will 
be the operand of the COBOL branch 
statement. As an example, let's as- 
sume the following statements appear 
in a program: ADD AMOUNT TO TO- 
TAL, MOVE NAME TO HOLD-NAME, 
MOVE ACCTNO TOHOLD- ACCOUNT. 
Now, at one point in our program we 
want to branch back and execute all of 
the statements but at another point, 
however, we want to execute all 
statements except the first. This will 
require us to separate our statements 
into two paragraphs as shown below. 


PARI. 

ADD AMOUNT TO TOTAL. 

PAR 2. 

MOVE NAME TO HOLD-NAME, MOVE ACCTNO TO 

_ 

HOLD-ACCOUNT. 

“ 

GO TO PARI. 


GO TO PAR2. 


When the 'GO TO PARI. ' is exe- 
cuted, it will cause all statements to 
be executed since, unless interrupted 
by a branch, control simply flows 
from sentence to sentence and para- 
graph to paragraph. When the 'GO 
TO PAR2. ' is executed, however, the 
program will branch to the statement 
immediately following the statement 
'ADD AMOUNT TO TOTAL 1 . 

Sections consist of one or more 
paragraphs and their use in the Pro- 
cedure division is optional. When they 


appear in the division, they must be- 
gin with a section header entry writ- 
ten in Margin A. The header entry 
must be the only entry written on the 
line. The section name is created by 
the programmer according to therules 
for programmer- supplied names. 

A term you will often hear in con- 
nection with the Procedure division is 
the word 'procedure'. This does not 
refer to the name of the division but 
rather applies to a paragraph or a 
section. A procedure is similar in 


Page 2. 


Lesson C 7 




function to a routine in assembly lan- 
guage programs. That is, it consists 
of a series of instructions designed 

to perform a specific piece of work. 

Sections, paragraphs and sentences 
are the framework on which we build 
our program. The building - block 
which we use to fill out the framework 


is the statement. Each statement con- 
tains a COBOL word which functions 
as a verb, or operation code. Each 

statement has a specific format which 

revolves around the verb contained in 
the statement. The first statements 
which we shall learn are those using 
the input/output verbs. 


7.2 INPUT/OUTPUT STATEMENTS 


There are four basic statements in 
COBOL which perform all input/out- 
put operations. Among other things, 
they check and create labels, read in- 
put data into the system and, if nec- 
essary, deblock records, block and 
write output data, and process end- 
of-file situations. The statements are: 
OPEN, READ, WRITE, and CLOSE. 

OPEN Statement 

Those of you who have had occasion 
to use IOCS (Input/Output Control Sys- 
tem)are familiar with this statement. 


Before any file can be referenced by 
the programit must have been opened 
by means of an OPEN statement. 
When an input file is opened, the la- 
bels are checked to ensure that the 
correct files are being used. For an 
output file, labels are checked to en- 
sure that the expiration date has 
passed and if so, new labels are 
created. In the case of card or printed 
files which bear no labels, the files 
are simply made available to the pro- 
gram. The formats of the OPEN 
statement are: 


F ormat 1, Input File Only 

OPEN INPUT file- name- 1 |~~f ile— name- 2 . ,T"| 

Format 2. Output File Only 

OPEN OUTPUT file-name-1 [file- name-2 .. /J 
Format 3. Input and Output Files 

OPEN INPUT file- name- 1 [file -name-2 . . 7j OUTPUT file-name-y 


0 


file-name- z 
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The first format is used to open 
input files either because the pro- 
gram only references input files or 
because output files are being opened 
in a separate OPEN statement. All 
input files may be opened with one 
OPEN statement. File-name- 2 is 


followed by three dots which indicate 
that this element of the statement may 
be repeated as many times as nec- 
essary. As an illustration, the first 
statement given below opens only one 
file. The second example opens three 
files. 


OPEN INPUT DETAIL- RECORD. 

OPEN INPUT DETAIL-RECORD, MAS TER- RECORD, NAME-FILE. 


The order in which the files are 
opened is not significant. However , 
each input file to be referenced must 
be opened. Note also that the OPEN 
statement is the only statement which 
defines a file as an input file or an 
output file. The SELECT sentence 
only assigns a file to a device class 
which, in many cases, can function 


either as an input or output device. 

The second format is used when 
the program will only use output files 
or because the input files are being 
opened in a separate OPEN statement. 
Its format is identical to the input 
OPEN statement as shown below. 


OPEN OUTPUT NEW-MASTER. 

OPEN OUTPUT NEW-MASTER, PRINTED -REPORT, EXCEPTIONS. 


The third format can be used to 
open all files used in the program. It 
is a combination of formats 1 and 2 
and the notes given above apply also 


to this format. The first example 
given below opens one input and one 
output file. The s econd example opens 
two input and two output files. 
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OPEN INPUT CARDIN OUTPUT CARDOUT, 

OPEN INPUT CHANGE-RECORD OLD-MASTER OUTPUT NEW-MASTER 
EXC EPTION- REPORT. 


In the second example, CHANGE- 
RECORD and OLD-MASTER are the 
input files. NEW-MASTER and EX- 
CEPTION-REPORT are the output 
files. When the third format is used, 
input files must be opened first and 
their names must be preceded by the 
reserved-word INPUT. Output files 
are then opened and their names are 
preceded by the reserved- word OUT- 
PUT. 


One last thing about the OPEN 
statement. Each file named in the 
statement must be defined in an FD 
entry in the Data division and. as- 
signed to a device with a SELECT 
sentence in the Environment division. 

CLOSE Statement 

The CLOSE statement is used to 
terminate processing of files. Its 
format is: 


CLOSE file-name- 1 


jjEile -name- 2 . 



All files which have been opened 
during the course of the program 
must be closed before the run is 
stopped. The files may be closed all 
at one time, e. g. during the end-of- 
job routine, or each file may be 
closed individually as soon as its 
processing is completed. Where nec- 
essary, label records are written 
and the file is repositioned to its be- 
ginning. 

After a file has been closed, it is 
not possible to have access to any re- 


cord in that file unless that file is 
re-opened by means of an OPEN 
statement. Note that the CLOSE 
statement does not identify the files 
as input or output files. A common 
error made by beginning COBOL pro- 
grammers is to insert the words IN- 
PUT and OUTPUT in the CLOSE 
statement. Only the OPEN statement 
defines a file as input or output. In 
the first example shown below, two 
files are closed. The second example 
closes six files. 
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CLOSE INPUT-RECORD, OUTPUT-RECORD. 

CLOSE DETAIL- RECORD, MASTER- RECORD, NAME-FILE, 
NEW-MASTER, PRINT ED -REPORT, EXCEPTIONS. 


READ Statement 

The READ statement is used to 
obtain the next logical record from 


an input file and to test for an end-of- 
file condition. The for mat of the state- 
ment is: 


READ file-name 


D 


INTO data-name 


■] 


AT END 


imperative statement. . . 


The READ statement causes the 
next logical record in the file to be 
made available to the program. If an 
end-of-reel condition is detected for 
a file recorded on magnetic tape and 
additional reels are to be processed, 
the reel is rewound and the next reel 
is read. Standard header and trailer 
labels are checked if present. When 
a record is obtained, it remains 
available to the program in the input 
area until the next READ or CLOSE 
statement for the file is executed. 

File-name must be defined by an 
FD entry in the Data division. The 
file must have been opened by means 
of an OPEN statement prior to the 
execution of the READ statement. 

The INTO data-name option en- 
ables the programmer to have the next 
input record placed in both the input 
area and the area specified by data- 
name. When this option is exercised, 


the READ statement is equivalent to 
reading a record into the input area 
and then moving it to the area defined 
by data-name. Data-name must be 
the name of a working- storage re- 
cord or the name of a previously 
opened output record. In addition, 
only one record description should be 
associated with the file. If more than 
one record description appears and 
the INTO option is used, the compiler 
will use the first description only. 

The AT END clause specifies the 
action to be taken when an end- of- file 
condition is detected. End-of-file is 
recognized when the last record in 
the file has already been read and pro- 
cessed. At that point, the imperative 
statements associated with the clause 
are executed. Until that time, the im- 
perative statements are ignored and 
control goes to the next sentence or 
paragraph in the program. Condition- 
al statements may not appear in the 
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AT END clause. 

All READ statements must end in 
a period. This is because any state- 
ments appearing between the words 
AT END and the next period, are as- 
sumed to refer to the action to be 


taken when end-of-file is reached. In 
other words, every READ statement 
must be a sentence and must contain 
only those imperative statements 
which are to be executed at end-of- 
file time. Let' s look at some examples 
of the READ statement. 


READ INPUT-FILE, AT END CLOSE INPUT-FILE, STOP RUN. 

READ INPUT-FILE INTO WORK-AREA, AT END GO TO END-OF-JOB. 


In the first example, INPUT- FILE 
is the file-name specified in an FD 
entry in the Data division and in an 
OPEN statement previously executed. 
The imperative statements in the AT 
END clause are CLOSE INPUT-FILE 
and STOP RUN. As long as there are 
records remaining to be processed 
these statements will be ignored and 
control will flow to the next sentence 
or paragraph. 

The second example used the INTO 
data- name option. In this case, the 
next record will be placed in the input 
area and then moved to the area named 
'WORK- AREA'. 'WORK- AREA' must 
be a working- storage record or the 
name of a previously opened output 
record. The imperative statement in 
the AT END clause is GO TO END- 


OF-JOB. 'END-OF-JOB' is the name 
of a procedure which deals with end- 
of-file conditions. 

One more thing about the READ 
statement. Once the imperative state- 
ments in the AT END clause have been 
executed, no further attempts to read 
or refer to records in the file should 
be made unless the file has been sub- 
sequently closed, and re-opened. 

WRITE Statement 

The WRITE statement releases one 
logical record for a file specified as 
an output file in an OPEN statement. 
Additionally, it can specify stacker 
selection for punched card output and 
control spacing for printed output. 
The formats of the statement are: 
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The WRITE statement releases a 
logical record to the output file. When 
end- of- reel is detected for a file re- 
corded on magnetic tape, the tape is 
rewound and the next reel is written. 
Where necessary, standard header 
and trailer records are written. 

Note that record- name is specified 
and not file-name. We read file-names 
and write record- names. Record- 
name must be the name appearing in 
a record-description entry in the Data 
division. Once a record has been 
written, it it no longer available to 
the program. Consequently, all pro- 
cessing of the record must be com- 
pleted before the WRITE statement is 
executed. 

The FROM option allows the pro- 
grammer to have acces s to the record 
after it has been written. It is, when 
used, the equivalent of moving the 
record from data-name to record- 
name and then writing record- name. 
After execution, the record is avail- 
able in data-name but not in record- 
name. 

Let's look at some sentences con- 
taining the WRITE statement. 
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WRITE OUTPUT-RECORD, GO TO GET-NEXT-RECORD. 

WRITE OUTPUT-RECORD FROM WORK-AREA, GO TO GET-NEXT-RECORD. 


In the first sentence, record- 
name is OUTPUT-RECORD and must 
appear in a record description in the 
Data division. After the WRITE state- 
ment has been executed, the next 
statement in the sentence will be exe- 
cuted. The record is no longer avail- 
able in OUTPUT- RECORD. 

The second sentence uses the 
FROM option. The record will be 
moved from WORK-AREA to OUT- 
PUT-RECORD and then written. After 
execution, the record will be avail- 
able in WORK- AREA but not in OUT- 
PUT-RECORD. 

Format 2 is used to punch a card 
and select it to a specific stacker. 
When this format is used, all WRITE 
statements in the program referring 


to the same record-name, must also 
use this format. What this means is 
that we cannot punch a card and se- 
lect stacker at one point in the pro- 
gram, and then punch a card for the 
same file and not select stacker at 
another point in the program. Data- 
name-2 is the name of an independent 
item (level-number 77) in the Work- 
ing-Storage section which has a pic- 
ture of X, i. e. a one position alpha- 
numeric item. The contents of this 
item determines which stacker the 
card will fall in. In order to control 
stacker selection, the programmer 
moves either the letter V or the letter 
W to this item before the WRITE 
statement is executed. The meaning 
of the characters V and W are shown 
below. 


Character 

Meaning 

V 

IBM 1442 - stacker 1 


IBM 2540 - stacker PI 

W 

IBM 1442 - stacker 2 


IBM 2540 - stacker P2 
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In addition to the data-name-2 re- 
quirement, the programmer must also 
establish his output record area so 
that its length is one position greater 
than the number of characters to be 
punched. That is, in order to punch 
an 80 column card and select it to a 
stacker, we must reserve an 81 
position output area. This extra byte 
must be the first (leftmost) byte of 
the area and be defined in the record 


description as FILLER with a picture 
of X. This byte is required by the 
compiler and is used for stacker- se- 
lection purposes. Its contents is not 
punched into the card. 

As an example of this format, let's 
assume that we wish to select all 
cards to stacker P2. In the File sec- 
tionwe establish our record descrip- 
tion with a length of 81. 


01 

OUTPUT- RECORD. 


02 

FILLER PICTURE X. 


02 

ACCTNO PICTURE 9(5). 


02 

ACCTNAME PICTURE A(30). 


02 

ADDRESS PICTURE X(45). 


Next, we would define an indepen- tion with an initial value of W. 

dentitem in the Working-Storage sec- 


WORKING-STORAGE SECTION. 

77 SELEC TING-STACKER- 2 PICTURE X, VALUE IS 1 W' . 
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The Procedure division statement 
to punch the contents of OUTPUT-RE- 


CORD into a card and select it to 
stacker P2 would then be - 


WRITE OUTPUT-RECORD AFTER SEDECTING-STACKER- 2. 


In the above statement, data-name- 
1 is OUTPUT- RECORD whose record 
description includes one extra posi- 
tion. The FROM option has been 
omitted. Data- name- 2 is SELECT- 
ING-STACKER- 2 which has been es- 
tablished in the Working-Storage Sec- 
tion as a one position constant con- 
taining the letter W. 

Format 3 is similar in operation 
to Format 2. One extra position must 


be included in record-name and all 
WRITE statements referring to the 
same record-name must be in this 
format. As with Format 2, data- 
name-2 refers to an independent item 
in the Working-Storage section whose 
contents can be manipulated by the 
programmer to achieve variable 
spacing and skipping. The valid, cha- 
racters which can be moved to data- 
name-2 are shown below. 


Character 

Meaning 

blank 

single spacing 

0 

double spacing 

- 

triple spacing 

+ 

suppress spacing 

1 through 9 

skip to channel 1 through 9, respectively 

A, B, C 

skip to channel 10, 11 and 12, respectively 


If 'integer' is specified, it can only 
have a value of 0, 1, 2, or 3. The 


meaning of these values is shown be- 
low. 
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Integer 

Meaning 

0 

skip to channel 1 

1 

single spacing 

2 

double spacing 

3 

triple spacing 


When data-name-2 is used in a 
WRITE statement, it enables the pro- 
grammer to have one WRITE state- 
ment and still obtain variable skip- 
ping or spacing simply by changing 
the contents of data-name-2. On the 
other hand, if integer is specified the 
spacing or skipping which results will 


always be in accordance with the value 
specified by integer. In other words, 
we cannot alter the value of integer 
during the course of the program. For 
example, the statement shown below 
will always cause double spacing to 
occur. 


WRITE PRINTED- LINE AFTER ADVANCING 2 LINES. 


With the statement shown below, 
however, the contents of SPACE- KEY 
can be manipulated to cause variable 


skipping or spacing during the course 
of the program. 


WRITE PRINTED- LINE AFTER ADVANCING SPACE- KEY LINES. 
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Format 3 of the WRITE statement 
is often combined with an IF state- 
ment to test if channel 12 has been 
sensed. To do this, however, an 
APPLY clause must be written in the 
I-O-CONTROL paragraph of the IN- 
PUT-OUTPUT Section of the Environ- 


ment Division. The APPLY clause, 
you will remember, is used to as- 
sign a condition- name (overflow- 
name) to a form- overflow condition 
in the file specified as file-name. The 
format of the clause is: 


APPLY overflow-name TO FORM-OVERFLOW ON file-name. 


If we assume that our file- name is 
PRINTED -REPORT and overflow- 


name is END-OF-PAGE, our clause 
would be written as follows: 


I-O-CONTROL. 

APPLY END-OF-PAGE TO FORM-OVERFLOW ON PRINTED- REPORT. 


An IF statement could then be writ- 
ten in the Procedure division which 


would cause a skip to channel 1 when- 
ever channel 12 has been sensed. 


IF END-OF-PAGE, WRITE PRINTED-LINE AFTER ADVANCING 0; 
OTHERWISE WRITE PRINTED- LINE AFTER ADVANCING 1. 
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The above statement will cause a 
skip to channel 1 whenever channel 12 
is sensed. In all other cases, single- 
spacing will result. Although we have 
used the integer option in this ex- 
ample, data- name- 2 could also have 
been used. However, the sentence 


contains two WRITE statements each 
of which would require its own data- 
name-2. The first would be initialized 
with a value of 1 and the second, with 
a value of a blank as illustrated be- 
low. 


WORKING-STORAGE SECTION. 


77 

SKIP-TO-CHAN- 1 

PICTURE X 

VALUE 1. 

77 

SINGLE-SPACE 

PICTURE X 

VALUE SPACE. 


Note that when date- name- 2 is 
used, the digit 1 specifies a skip to 
channel one but when integer is used, 
the digit 0 signifies a skip to channel 
one. To obtain single spacing, data- 
name-2 must contain a space (blank). 
The VALUE clause in the second en- 
try above specifies the figurative con- 


stant SPACE. This will cause SINGLE- 
SPACE to be initialized to a blank 
when the program is loaded. With 
these two independent items defined 
in the Working-Storage section, our 
Procedure division statements would 
now read: 


IF END-OF-PAGE, WRITE PRINTED- LINE AFTER SKIP- TO- CHAN- 1 ; 
OTHERWISE WRITE PRINTED- LINE AFTER SINGLE-SPACE. 


You'll note that both WRITE state- 
ments omit the optional words AD- 
VANCING and LINES. This is only to 


make the statement less awkward 
than, for example - 
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WRITE PRINTED- LINE AFTER ADVANCING SKIP- TO- CHAN- 1 LINES; 


Let's review what we have learned 
about Formats 2 and 3. To obtain 
variable stacker selection and forms 
skipping or spacing, both formats re- 
quire an independent item to be de- 
fined in the Working-Storage section 
with a picture of X. The name as- 
signed to this item is written as data- 
name-2 in the WRITE statement. The 
contents of this item can be changed 
by the programmer during the course 
of the program to caus e variable stac- 
ker selection or forms control. Ad- 
ditionally, both formats require that 
the programmer include one extra 
byte in his record description which 
is defined as FILLER PICTURE X. 
This byte is used by the control pro- 
gram and its contents are not included 
in the data punched or printed. 

Format 3 allows the programmer 


to omit the need for an independent 
item entry in the Working-Storage 
section and specify the amount of 
spacing or a skip to channel 1 direct- 
ly in the WRITE statement its elf. 
However, the value specified as in- 
teger cannot be altered during the 
course of the program and also, the 
values which can be specified permit 
only single, double or triple spacing 
and skip to channel 1. 

F ormat 3 can be combined with an 
IF statement to test for channel 12. 
To do this, the Environment division 
must include an APPLY clause which 
equates a condition- name to a forms- 
overflow condition for the file indica- 
ted. This condition- name is then used 
in an IF statement in the Procedure 
division to test if channel 12 has been 
sensed. 


7.3 THE GO TO AND STOP STATEMENTS 


GO TO Statement 

transfer control to another point in 
The GO TO statement is used to the program. Its format is: 


GO TO procedure- name. 


Lesson C 7 


Page 15. 





In its simplest form, the GO TO 
statement is the equivalent of an un- 
conditional branch. When combined 
with a conditional statement, branch- 
ing occurs only if the condition tested 
exists. Procedure- name is the name 
of a section or a paragraph in the Pro- 
cedure division. If procedure- name 
refers to the name of a section, the 
reserved word SECTION is not in- 
cluded in the GO TO statement. Pro- 
cedure-name may be the name of a 
procedure which contains the GO TO 


statement itself. That is, we can 
branch from some point in a procedure 
back to the beginning of the same 
procedure. The GO TO statement has 
one other format which will be dis- 
cussed later in the course. 

STOP Statement 

The STOP statement is used to 
terminate or delay execution of the 
program. Its format is: 


STOP 


j RUN j 
( literal j 


The STOP RUN statement term- 
inates execution of the object program 
and returns control to the operating 
system. This format is used at nor- 
mal end- of- job or when the program 
has detected an error in the data 
which prevents further processing. 


TheSTOP literal format is used to 
cause a message to be displayed on 
the console. The system enters the 
wait state and processing can be re- 
sumed only by operator intervention. 
The size of the literal is limited to 
72 characters. An illustration of this 
option is shown below. 


STOP 'CONTROL CARD MISSING 1 . 
GO TO READ -CONTROL- CARD. 
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The STOP statementwill cause the 
literal to be displayed and the system 
enters the wait state. After the op- 
erator corrects the error, the pro- 
gram will resume with the GO TO 
statement. 

Let us examine a program which 
uses the statements learned in this 
lesson. The program is to read a 


file of cards from a 2540 reader which 
are in the format shown in Figure 1. 
The cards are to be written out in the 
same format on a 2400 series tape 
unit with a blocking factor of 20, i. e. 
20 logical records to the block. Stan- 
dard labels are to be written. The 
coding for the program is shown in 
Figure 2. 


A 


A CC T. N AME 


000000000000000000000 

I 2 ] 4 5 ( 1 I ! II II 12 11 14 IS It 17 II I) 21 21 22 22 2 * 2 S] 

1111111111111111111111111 


222222222222222222222 
333333333333333333333 
444444444444444444444 
15 55555555555555555555 
6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 C 6 6 6 
I7J7J777777J777777777 


999999999999909999999 


I 2 3 I 5 i 1 1 2 ID 1112 11 14 IS It I! II II 20 | 
JTC SO»l 


lACCT. 

NO. 


2 2 2 2 2 

3 3 3 3 3 

4 4 4 4 4 

5 5 5 5 5 

6 6 6 6 0 
1 7 7 7 1 

8 8 6 8|8 


9 9 9 9|9 

111 33 33 34 33 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 a 


36 33 31 33 i 

1111 


STREET ADDRESS 
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1111111111111111111111 


2222222222222222222222222 
3333333333333333333333333 
4444444444444444444444444 
5555555555555555555555555 
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1777777777777777777777 


6 6 6 
7 7 7 7 
6 8 8 


9 9 9 

11 11 II 1! 


99999999999999999999999 

130 II 31 11 34 IS It 31 31 1 ! 40 41 41 43 44 41 4 t 4 i 41 41 SO SI 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 


11 1 ! 14 IS St 11 SI II to si| 

1 I I I 1 I 1 1 1 1 

2222222222 

3333333333 

4(44444444 

5555555555 

6666666666 


77777777777777717 


999999999 
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II II 14 IS II II 

111111 

2 2 2 2 2 2 2 

3 3 3 3 3 3 3 
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6 6 6 6 6 6 6 


it i! 10 i> ii i] 14 is it u ii is i: 

1111111111111 

222222222272 

333333333333 

444444444444 

555555555555 

666666666666 

777777777777 


9 9 9 S 9 9|9 9 9 9 9 9 9 9 9 9 9 9 9 

II II [4 IS II II 

PR I 


'll II 10 II H 11 14 11 It 11 II 1! 10 

(TED IN U S A 


Figure 1. 


The program begins with the Iden- 
tification division header entry on 
line 010. The divi sion contains the 
PROGRAM- ID paragraph on line 020 
which gives the program name as 
'CARDTAP'. The PROGRAM-ID para- 
graph is mandatory and must appear 
in each program. 

The Environment division entries 
are on lines 040 to 110. The SOURCE- 
COMPUTER and OBJECT- COMPU- 
TER paragraphs in the Configuration 
Section specify a Model 30 with 


32,768 bytes of main storage. The 
File- Control paragraph in the Input- 
Output Section contains two SELECT 
sentences. The first sentence selects 
the input file and assigns it to a 2540 
reader/punch. The second sentence 
assigns the output file to a 2400 series 
tape unit. 'INPUT-FILE 1 and 'OUT- 
PUT-FILE' are file-names and must 
appear in an FD entry in the Data 
division. The optional I-O-CONTROL 
paragraph has been omitted since no 
special input/ output techniques are 
required. 
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The Data division entries appear 
on lines 130 to 200. The first file 
description entry begins on line 150. 
The level-indicator FD is written in 
Margin A and the remaining clauses 
in Margin B. The entry identifies the 
file name as INPUT-FILE, the same 
name which was used in the SELECT 
sentence earlier. The remaining 
clauses indicate fixed-length records, 
no label records, and identify the re- 
cord. The input record is described 
by the record description on line 17 0. 
The level- number is written in Mar- 
gin A and the remaining elements in 
Margin B. Level-number 01 is used 
to describe the record as a whole. 
Since the program does not require 
us to reference individual items in the 
record, we have described it as an 
elementary item with a picture of 
X(80). 

The output file is defined by the 
FD entry appearing on lines 180 and 
190. The entry specifies fixed- length 
records, a blocking factor of 20, 
standard header and trailer labels, 
and provides the name of the output 
record. The record description entry 
is on line 200. For the reasons given 
above, we have also defined this re- 
cord as an elementary item. 

The Procedure division is on page 
twoandbegins with the required divi- 
sion header entry. The first para- 
graph in the division bears the name 
OPEN-FILES. The paragraph con- 
sists of an OPEN statement which will 
open both our input and our output 
files. 

The next paragraph is identified by 
the name READ- RECORD. The para- 
graph contains three sentences which 


will read input records, test for end- 
of-file, write the output record and 
branch back to the beginning of the 
paragraph. The READ statement in- 
cludes the INTO option which will 
cause the next record to be made 
available in INPUT- RECORD and then 
moved to OUTPUT- RECORD. By 
using this option, we save ourselves 
the trouble of writing a MOVE state- 
ment. The second sentence will cause 
the data in OUTPUT- RECORD to be 
placed in the output block. The last 
sentence sends control back to the 
beginning of the paragraph where the 
next record will be read. When erid- 
of-file is sensed, control will flow to 
the paragraph named NO-MORE- 
CARDS on line 090. The two sen- 
tences in this paragraph will close our 
files and terminate execution of the 
program. 

Let's go back to the second para- 
graph and see if we have followed all 
of the rules. The INTO option of the 
READ statement specifies that data- 
name must be the name of a working- 
storage record or the name of a pre- 
viously opened output record. Since 
OUTPUT- RECORD is the name of a 
record in an output file opened in the 
OPEN- FILES paragraph, no violation 
of the rules has been committed. Al- 
so, the description of the READ state- 
ment states that it must end in a 
period since any imperative state- 
ments following the AT END clause 
are assumed to represent actions to 
be taken when end- of- file is reached. 
Our READ statement is constructed 
correctly. However, if our statement 
were constructed as shown below, no 
output records would be written until 
the input records were exhausted. 


READ-RECORD. READ INPUT-FILE INTO OUTPUT- RECORD AT END 

GO TO NO-MORE-CARDS WRITE OUTPUT- RECORD. 
GO TO READ -RECORD. 
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Let's review the operation of the 
READ statement. When, and only 
when, end-of-file is sensed the im- 
perative statements immediately fol- 
lowing the words AT END are exe- 
cuted. At all other times, control 
flows to^ the next sentence or para- 
g ra P h - Consequently, the statement 
written above would read an input re- 
cord and control would then flow to 
the GO TO READ- RECORD sentence. 
The only time the WRITE statement 
would be executed would be when end- 
of-file was sensed. In contrast, the 
statement in Figure 2 will cause a 
branch to NO-MORE-CARDS when 
end-of-file is detected. At all other 


times, control will flow to the WRITE 
statement in the following sentence. 

The WRITE statement itself cor- 
rectly specifies a record-name. Re- 
member, we READ files but WRITE 
records. Similarly, the GO TO state- 
ment refers to a procedure-name. 
We never branch to a data- name, 
condition-name, etc. 

The CLOSE statement correctly 
omits the reserved words INPUT and 
OUTPUT. We only specify a file as 
input or output in the OPEN state- 
ment. 


7.4 THE MOVE STATEMENT 


The MOVE statement transfers 
data from one area in storage to one 
or more receiving areas. Depending 
upon the picture and usage of the re- 
ceiving field, the data may be con- 


verted from one format to another 
and/ or editing of the data may take 
place. The format of the statement 
is : 


1 data-name- 1 ) 



MOVE j literal 

TO data-name-2 

data-name- 3 . . . 

( figurative- constant / 


L J 


Any number of receiving fields 
may appear in the statement but there 
may be only one sending field. If 
more than one receiving field is 
specified, the data from the sending 
field is moved to all receiving fields. 
Notall moves are permitted; whether 


a move is valid or not depends on the 
structure and class of the sending 
and receiving fields. Figure 3 is a 
table of permissible moves. You will 
probably want to refer to this table 
later on, so I'd suggest that you 
mark this page. 
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RECEIVING FIELD 

PERMISSIBLE SENDING FIELDS 

Group Item 

All moves are valid 

Elementary Alphanumeric 
Item 

All moves are valid except that elementary 
numeric items must be whole numbers and 
not floating-point numbers 

Elementary Alphabetic 

Item 

Group Item, Elementary Alphanumeric Item, 
Elementary Alphabetic Item 

Elementary Numeric Item 

Elementary Numeric Item 

Elementary Report Item 

Elementary Numeric Item 


Figure 3 TABLE OF PERMISSIBLE MOVES 


From Figure 3, we see that any 
item may be moved to a group item. 
The same is almost true of an ele- 
mentary alphanumeric receiving 
field. The only difference being that 
if the sending field is an elementary 
numeric item, it must be a whole 
number and not be in the floating- 
point format (USAGE COMPUTA- 
TIONAL-! or COMPUTATIONAL- 2). 
An elementary alphabetic item can 
only receive data from a group item 
or an elementary alphanumeric or 
alphabetic item. An elementary nu- 
meric item can only receive data 
from another elementary numeric 
item. An elementary report item is 
an item whose picture contains editing 
characters. Since the 360 permits 
editing of numeric data only, an ele- 
mentary report item can only receive 


data from an elementary numeric 
item. One thing should be noted. Just 
because itis permissible to move one 
type of item to another type, it does 
not always follow that the reverse is 
true. For example, an elementary nu- 
meric item may be moved to a group 
item but a group item cannot be 
moved to an elementary numeric 
item regardless of whether the group 
item contains numeric data or not. 

Our table does not include literals 
or figurative constants. Both are 
considered elementary items. A non- 
numeric literal is an elementary 
alphanumeric item while a numeric 
literal is an elementary numeric 
item. The permissible receiving 
fields for figurative constants are 
shown below. 
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Figurative Constant 

May Be Moved To 

ZEROS 

All items except an elementary 
alphabetic item. 

SPACES 

Group Item, Elementary Alphanumeric 
Item, Elementary Alphabetic Item 

ALL ' ' 

HIGH- VALUES 

LOW- VALUES 
QUOTES 

Group Item, Elementary 

Alphanumeric Item 


All move statements can be placed 
in one of three categories; non-nu- 
meric, numeric, and edit moves. 
We'll begin our study of these cate- 
gories with the non-numeric move. 

NON-NUMERIC MOVE 

The non- numeric move category is 
the category most frequently used 
and consists of any move statement 
which does not move an elementary 
numeric item to another elementary 
numeric item or to an elementary re- 
port item. 

There are only three rules to re- 
member concerning the non-numeric 
move: 

1. Data is moved from left- to- right, 
high-order to low- order. 


2. If the receiving field is longer than 
the sending field, the low- order 
positions of the receiving field will 
be padded with spaces (blanks). 

3. If the receiving field is shorter, 
execution terminates when the re- 
ceiving field is filled. The extra 
low-order positions of the sending 
field are not moved. 

There is one exception to these 
rules, if the receiving field descrip- 
tion contains the JUSTIFIED RIGHT 
clause, data will be moved from low- 
order to high- order. If the receiving 
fieldis longer the high- order positions 
will be padded. If the receiving field 
is shorter, the extra high-order bytes 
of the sending field will be ignored. 
Let's look at some examples of the 
non-numeric move. 
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Sending Field Contents 

Receiving Field Picture 

Contents After Move 

1. TOM 

XXXXX 

TOMbb 

2. TOM 

XXXXX JUSTIFIED 
RIGHT 

bbTOM 

3. 1234567 

XXXXX 

12345 

4. 1234567 

XXXXX JUSTIFIED 
RIGHT 

34567 


In the first example, a three posi- 
tion sending field is moved to a larger 
receiving field. The data is moved 
from left- to- right and the two extra 
low- order positions in the receiving 
field are filled with spaces. In these 
examples, the lower-case 'b' is used 
to indicate a blank. 

The second example, moves the 
same data to a receiving field of the 
same size as in the first example. 
However, the picture of this item in- 
cludes the JUSTIFIED RIGHT clause. 
The data is moved from right- to- left 
and the extra high- order positions are 
padded with spaces. 

The third example, illustrates a 
situation where the receiving field is 
shorter than the sending field. In 
this case, the low-order digits of the 
sending field are not transferred. 

The fourth example is similar to 
the third except that JUSTIFIED 
RIGHT is specified. Movement of data 
stops when the receiving field is filled 
and the high- order digits of the send- 
ing field are ignored. 

Note that none of these moves will 
be considered an error by the com- 
piler. There will be situations when 
you will want to move a larger send- 
ing field to a smaller receiving field 
and vice-versa. However, it is up to 
you to ensure that the final result is 
correct. 


NUMERIC MOVE 

A numeric move occurs when an 
elementary numeric item is moved to 
another elementary numeric item. 
The rules governing a numeric move 
are: 

1. If the usages of the sending and 
receiving fields differ, the data 
will be converted to the usage of 
the receiving field. 

2. If the picture of the receiving 
field contains an 'S', a sign will 
be generated; otherwise bits rep- 
resenting 'no sign' will be placed 
in the receiving field. 

3. Assumed decimal points will be 
aligned during the move. 

4. After alignment of decimal points, 
extra high- order or low- order 
positions in the receiving field 
will be filled with zeros. 

5. If the receiving field is shorter 
than the sending field, extra high- 
order and/or low-order positions 
in the sending field will be trun- 
cated. Truncation occurs after 
decimal point alignment. 

The usages which we are con- 
cerned with in this course are DIS- 
PLAY, COMPUTATIONAL, and 
COMPUTATIONAL- 3. DISPLAY us- 
age indicates that the data is in 
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EBCDIC format. COMPUTATIONAL 

indicates binary format and Com- 
putational- 3, packed or in- 
ternal decimal format. When the 
usages of the sending and receiving 
fields differ, the compiler must gen- 
erate instructions in the object pro- 
gram to not only move the data but 
also convert it to the necessary for- 
mat. Conversion takes place in work 
areas established by the compiler 
during compilation of the program. 
Although it is not always possible, a 
programmer can reduce the amount 
of time and storage required by the 
program by eliminating unnecessary 
conversions. As an example, suppose 
that we had an item in packed decimal 
format which was to be moved to 
three items whose usage was DIS- 
PLAY. If we wrote three move state- 
ments, the same data would be con- 
verted to DISPLAY three times. On 
the other hand, if we first moved the 
itemtoanarea whose usage was DIS- 
PLAY and then moved it from that 
area to the other three areas, the 
data would be converted only once. 

Rule 2 concerns the generation of 
operational signs. Where the usage 
of the receiving field is COMPUTA- 
TIONAL, we really have no alterna- 
tive since binary items must have an 
'S' in their picture. This leaves us 
with receiving fields whose usage is 
DISPLAY or COMPUTATIONAL- 3. 
Two things must be considered when 
deciding whether the receiving field 
should have an 'S' in its picture: 

a. additional instructions must be 
generated by the compiler to 
change the sign to 'no sign'. 

b. in arithmetic calculations, 'no 
sign' bits are considered as equal 
to a positive sign. 

Let's take the first rule. When we 
omit an 'S' from the picture of a nu- 
meric receiving field, itdoes not mean 
that the sign bits of the data being 
moved will be ignored. On the con- 
trary, the compiler will generate in- 
structions to ensure that sign bits are 


changed to 'no sign' bits even though 

the data being moved already had the 

'no sign' bit configuration. The nature 
of certain numeric data, such as ac- 
count numbers, zip codes, etc. , would 
preclude their having a sign. For nu- 
meric data to be used, for example, 
in arithmetic calculations, it is gen- 
erally better to have an 'S' in the re- 
ceiving field picture. However, if the 
data in the receiving field is to be 
printed, an operational sign will caus e 
a letter rather than a digit. In a situ- 
ationlike this, an editing move is in- 
dicated unless we were certain that 
all data would be positive. In this 
case, we would omit the 'S' from the 
receiving field picture thereby sup- 
pressing the operational sign. 

The second rule states that 'no 
sign' bits will be considered equiva- 
lent to a positive sign in arithmetic 
calculations. Suppose that we moved 
data from an input record to a work 
area whose picture did not contain an 
'S'. This would cause 'no sign' bits to 
be developed in the receiving field. 
If we were to use the data in the work 
area in a calculation, the data would 
be considered to represent a positive 
value. Although this technique gen- 
erated additional instructions it is 
valid. There is one catch, however, 
if the data in the input record could 
assume either a positive or a nega- 
tive value, the move to the work area 
would cause negative amounts to be 
changed to positive. Our calculations 
would no longer be correct. The moral 
of this story is to use an 'S' when in 
doubt. 

Rule 3 deals with alignment of dec- 
imal points. During execution of a nu- 
meric move, decimal points are a- 
ligned in accordance with the pictures 
given for both fields. If a picture does 
not contain a V - the symbol for an 
assumed decimal point - the location 
of the decimal point is assumed to 
follow the last digit. That is, S9999 
is considered to be S9999V. 

Rules 4 and 5 deal with padding 
(insertion of zeros) and truncation 
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(non- transfer of extra digits) after 
decimal point alignment. If the re- 
ceiving field is longer than the send- 
ing field it is possible to have extra 
positions in either or both ends of the 
receiving field after alignment of de- 
cimal points. These extra positions 
are filled with zeros. In contrast, if 
the receiving field is shorter, the 
extra digits in the receiving field will 
be truncated after alignment of dec- 
imal points. Truncation can occur at 
either or both ends. 

Some examples of numeric moves 


are given below. In the first example, 
the receiving field has one extra 
high- order position which is filled 
(padded) with a zero during the move. 
The second example shows the re- 
verse situation where the extra posi- 
tion is the low- order. The remaining 
examples illustrate truncation. In the 
third example, after alignment of de- 
cimal points only the digit 8 is moved. 
The fourth example moves only the 
digit 7. Examples 5 and 6 illustrate 
truncation of high- order and low- or- 
der digits. 


SENDING FIELD 

RECEIVING FIELD 

Picture 

Contents 

Picture 

Contents after move 

1 . 

99V99 

1876 

999V99 

01876 

2. 

99V99 

1876 

99V999 

18760 

3. 

99V99 

1876 

9V 

8 

4. 

99V99 

1876 

V9 

7 

5. 

99V99 

1876 

9V99 

876 

6. 

99V99 

1876 

99V9 

187 


EDIT MOVE 

An edit move occurs when an ele- 
mentary numeric item is moved to an 
elementary item whose picture con- 
tains editing characters. Editing can 
involve insertion of punctuation and/ 
or sign symbols and suppression of 
leading zeros. 

During compilations of the source 
program, whenever the compiler en- 
counters a picture containing editing 


characters it generates a constant in 
the object program consisting of the 
editing pattern. A work area is also 
created in which editing will take 
place. During execution of the move, 
the pattern is moved to the work area 
and then the data is moved and edited 
in the work area. The edited result is 
then moved to the receiving field. 
Since the editing pattern is not loca- 
ted in the receiving field, it cannot be 
destroyed by the move. 
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The characters which can appear 
in a report item are shown below. 
The characters 9, V, and P have the 


same meaning as for a numeric item. 
Note that the character 'S' cannot ap- 
pear in the picture of a report item. 


9 V P . Z * CR DB , 0 B $ + - 


The characters 9 and Z are digit 
replacement characters meaning that 
they will be replaced by digits from 
the sending field. The letter Z has a 
special function in an editing picture 
and specifies that suppression of 
leading zeros should occur. High- or- 
der zeros in the edited result are re- 
placed by blanks. Zero suppression 
is stopped by the first significant 
digit encountered, the end of the Z's, 
or a decimal point if there are signif- 
icant digits to the right of the deci- 
mal point. In the first example below, 
the editing picture consists of the 
digit replacement character 9 and the 
letter V. Edit moves are similar to 
numeric moves in that decimal points 
are aligned and truncation and padding 
may occur. Also, conversion may oc- 


cur since the usage of a report item 
is always DISPLAY. After execution 
of the move, the low- order digit was 
truncated and high-order zeros re- 
main since zero suppression was not 
specified. The second example uses 
the same sending field but the editing 
picture specifies zero suppr es sion up 
to the dollar position. After editing, 
the low- order digit has again been 
truncated but the two high- order zeros 
have been replaced by blanks. The 
third example edits a zero sending 
field. In this case, the zeros remain 
since the receiving field picture did 
not contain any Z's. The last example 
also edits a zero sending field but the 
editing picture specifies zero sup- 
pression to the cents position. All 
zeros are replaced by blanks. 


SENDING FIELD 

RECEIVING FIELD 

Picture 

Contents 

Picture 

Contents after move 

1. 

999V999 

001800 

999V99 

00180 

2. 

999V999 

001800 

ZZZV99 

bbl 80 

3. 

999V99 

00000 

999V99 

00000 

4. 

999V99 

00000 

ZZZVZZ 

bbbbb 
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One more thing before we go on to 
the next characters. Every edit pic- 
ture must contain at least one digit 
replacement character. This is a 
common- sense rule since our only 
purpose in establishing an edit pic- 
ture is to edit numeric data. Also, no 
Z or Z's may appear to the right of a 
9. 

The characters . , 0 and B are 

used for punctuation, insertion of 
zeros, and spacing. The decimal 
point and the comma are the most 
commonly used so we'll devote most 
of our discussion to them. The dec- 
imal point in an editing picture means 
that an actual decimal point is to be 
placed at that place in the edited re- 
sult. A comma in an editing picture 
will cause an actual comma to ap- 
pear in the result. Neither character 
will be replaced by a digit from the 
sending field. If zero suppression is 
specified, however, both may be re- 
placed by blanks. One rule about the 
decimal point; any replacement cha- 
racters to the right of the decimal 
point must be all of the same type, 
i. e. all z's, all9's, etc. In the first 
illustration given below, no zero sup- 
pression is to take place but a comma 
and a decimal point are to be in- 
serted. After the move, the data from 


the sending field has been punctuated 
with these symbols. The second ex- 
ample used the same editing picture 
but the sending field contains zeros. 
Since there are no Z's in the picture, 
all zeros remain in the receiving field. 
The third example has a picture which 
specifies zero suppression to the dol- 
lar position. Editing has caused the 
high-order zero and the comma to be 
suppressed. When zero suppression 
is specified, any commas to the left 
of the first significant digit are al- 
ways replaced by blanks. The editing 
picture in the fourth example speci- 
fies zero suppression to the cents po- 
sition. After editing of the all- zero 
sending field, the receiving field con- 
tains only blanks. With an edit pic- 
ture such as this, editing of a zero 
field causes all punctuation to be sup- 
pressed. The last example illustrates 
editing of a field which contains a 
significant digit only in the low- order 
position. Although the editing picture 
specifies zero suppression beyond the 
decimal point, the decimal point and 
the following zero will not be sup- 
pressed. The rule is that as long as 
there is one significant digit to the 
right of the decimal point, zero sup- 
pression will stop at the decimal 
point even though the edit picture 
states otherwise. 


SENDING FIELD 

RECEIVING FIELD 

Picture 

Contents 

Picture 

Contents After Move 

1. 

9999V99 

842600 

9, 999. 99 

8, 426. 00 

2. 

9999V99 

000000 

9,999.99 

0, 000. 00 

3. 

9999V99 

037466 

Z, ZZZ. 99 

bb374. 66 

4. 

9999V99 

000000 

Z, ZZZ. ZZ 

bbbbbbbb 

i 

5. 

9999V99 

000009 

Z, ZZZ. ZZ 

bbbbb. 09 
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The O and B characters can be 
used to insert zeros or blanks in the 
edited result. As an example, if a 10 
position field contained a three digit 
area- code, a three digit exchange 


number, and a four digit telephone 
number we could edit this field so 
that the three sub-fields printed sep- 
arately as shown below. 


SENDING FIELD 

RECEIVING FIELD 

Picture 

Contents 

Picture 

Contents After Move 

9 ( 10 ) 

2125631711 

999B999B9999 

21 2b563bl 7 1 1 


A fixed-position d ollar sign can al- 
so be included in our editing picture 
as illustrated below. The main thing 
to remember about a fixed-position 


dollar signis that if zero suppression 
is specified for all positions and the 
sending field contains all zeros, the 
dollar sign will also be suppressed. 


SENDING FIELD 

RECEIVING FIELD 

Picture 

Contents 

Picture 

Contents After Move 

999 Y 99 

18360 

$ZZZ. ZZ 

$183. 60 

999V99 

00153 

$ZZZ. ZZ 

$bbl. 63 

999V99 

00000 

$ZZZ. ZZ 

bbbbbbb 


The sign indicators are + - CR and 
DB. In most printed reports it is 
common to identify only negative 
amounts. To do this in COBOL, we 
write the characters 'CR' or 'DB' at 
the right end of the picture. The sym- 
bol may appear at either the right 
or left end of the picture. However, 
only one sign indicator may appear in 


a picture. If the edited data repre- 
sents a negative amount, the speci- 
fied symbol will print otherwise the 
symbol willbe replaced by a blank(s). 
Note that the 'CR' and 'DB 1 symbols 
each occupy two bytes of storage. 
Some examples of negative sign in- 
dication are shown below. 
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SENDING FIELD 

RECEIVING FIELD 

Picture 

C ontents 

Picture 

Contents After Move 

999 Y 99 

-18365 

-ZZZ. ZZ 

-183. 65 

999V99 

-18365 

ZZZ. ZZ- 

183. 65- 

999V99 

-18365 

ZZZ. ZZCR 

183. 65CR 

999 Y 99 

-18365 

ZZZ. ZZDB 

183. 65DB 

999V99 

+18365 

ZZZ. ZZCR 

183. 65bb 

999V99 

+18365 

ZZZ. ZZDB 

183. 65bb 

999V99 

+18365 

ZZZ. ZZ- 

183. 65b 


In COBOL it is also possible to 
have a plus sign print when the a- 
mount is positive and a minus sign 
print when the amount is negative. 


To do this, we write a plus sign as 
either the first or last character of 
the picture as illustrated below. 


SENDING FIELD 

RECEIVING FIELD 

Picture 

Contents 

Picture 

Contents After Move 

999V99 

+57429 

+ZZZ. ZZ 

+574. 29 

999V99 

+06428 

ZZZ. ZZ + 

b64. 28+ 

999V99 

-00421 

ZZZ. ZZ + 

bb4. 21- 

999V99 

-00421 

+ZZZ. ZZ 

-bb4. 21 
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Let's look at a program which il- 
lustrates the techniques learned in 
this lesson. The input file is to be 
read from a 2540 card reader, each 
card having the format shown in Fig- 
ure 4. The output file is to be a 
printed report, printed on a 132 print 
position 1403 printer. The format of 
the printed line is shown in Figure 5. 


Note that the format of the line re- 
quires that the social security num- 
ber and the year-to-date earnings be 
edited. The coding for the program is 
shown in Figure 6. The Identification 
and Environment divisions have been 
omitted since they are not pertinent 
to the problem. 


/ 


EMPLOYEE NAME 


1 2 3 « 5 t I I 9 10 11 12 13 14 IS It 17 II I! II II II I] II IS li II II II !l 

11111111111,111111111111111111 

2222222222222222222222222222222 

3333333333333333333333333333333 

4444444444444444444444444444444 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 C 6 6 6 6 6 6 8 6 6 6 6 6 E 

7 1 7 17 11 7 J 7 7 1 7 1 7 7 7 7 1 7 7 7 7 7 7 1 1 7 7 7 


39999999999999999999999999999999999999999 

> I 3 I S S I I S II II II II II IS II IMI IS II II II II II IS II I, II II 31 31 31 33 31 3S 31 3, 31 39 II Ml 
JTC 50°l 


000000009 

3/ 33 31 3S 31 3, II 39 II 

111111111 


2222222222 
3333333333 
4444444444 
f. 5 5 5 5 5 5 5 5 5 
o 6 6 6 6 6 6 6 6 B 
177777777 


SOC IAL 
SECURITY 
NUMBER 


|ll II 13 II IS II I, II li|si 
11111111 


| YEAR-TO- 
DATE 
lEARNINGS 


fl SI S3 SI SS Si SI 

I 1 ! 


0 0 0 0 0 0|0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


pa 59 SB Si S2 S3 6* S5 66 67 68 69 70 71 72 73 M 15 IS 77 >1 79 IP 

11111111111111111111111 


2 2 2 2j? 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 7 


2222222 21 

3 3 3 3 3 3 3 3 3 3 3 3 3 3l3 3 

I 

4 4 4 4 4 4 4 4 4 4 4 4 4 4.4 4 

5 5 5 5 5 5 5 5 

6 6 6 6 B 6 B 6 6|6 6 6 6 6'B C|6 6 6 6 B 6 6 0 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 

17 7 7 7 7 7 7 7 7 1 7 17 7 7 7 7 7 7 1 


I 

5 15 5 5 5 5|5 5 


33333333333333333333333 
i4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 i 5 5 5 5 5 5 J 


777777777777777777777)7 

83888888888888888888888 


9 9 9 9 9 9 9 9|9 9 9 9 9 9l9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

II 13 II IS II I, II I9J5I pi SI S3 51 55|5S S, Si S3 [0 SI II li II IS IE I, SI E9 ’! V 12 -j •! •; ;| v i| - 3 sa 

PRINTED IN J S A 


J 


Figure 4 INPUT CARD FORMAT 


The File section appears on lines 
020 to 170. Our input file is described 
by the FD entry on lines 030 and 040. 
The input record description begins 
with the 01 level entry on line 050 
which identifies the record name as 
CARD-RECORD. The employee name 
field is described by the 02 level en- 
try on line 060 which defines the field 
as alphabetic, 30 bytes in length. The 
blank columns immediately following 
the name field are indicated by the 
FILLER entry on the next lines The 
picture clause describes the field as 


alphanumeric with a length of 10 by- 
tes. The social security field is des- 
cribed as a group item since the spe- 
cifications of the program require 
that the number be broken into three 
separate items with intervening 
dashes. Each sub-division of the so- 
cial security number is described 
with a level 03 entry with the picture 
clauses indicating a numeric field and 
specifying its length. Note that the 
group item entry on line 080 does not 
contain a picture clause. Only ele- 
mentary items may have a picture 
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clause. The blank column between the 
social security number and the earn- 
ings field is defined by the FILLER 
entry on line 120. The entry on line 
130 defines the year-to-date earnings 


field and the picture clause indicates 
the location of the assumed decimal 
point. The remaining columns in the 
card are defined by the FILLER entry 
on line 140. 


blank 

Emp. Name 

blank 

Soc. Sec. No 

blank 

YTD Earns. 

blank 


5 6 


35 36 40 41 


1 


51 52 61 62 


to be printed 
as 

xxx-xx-xxxx 


1 


70 71 


132 


to be printed 
as 

$X, XXX. XX 


(zero supp. 
to cents 
position) 


Figure 5 OUTPUT RECORD FORMAT 


The output file is described by the 
FD entry on lines 150 and 160. For 
reasons which will become apparent 
later, the output record has been 
described as an elementary item con- 
sisting of a level- number, record- 
name, and a picture clause. 

The Working-Storage section be- 
gins on line 180. It contains a record 
description which appears on lines 
190 to 250 of page 1, and lines 010 to 
060 of page 2. This is the area in 
which we will build our output record. 
There are two reasons why we are not 
building our record in the area defined 
by the record- description entry on 
page 1, line 170. First, the initial 
contents of this area cannot be pre- 
dicted at program load time. Since 
our printed line contains areas which 
should be blank when the line is print- 
ed, we could not be certain of the con- 
tents of these areas if we did build 


our record in that area. By writing a 
record description in the Working- 
Storage section, we can be sure that 
they contain blanks by including the 
'VALUE IS SPACES' clause in the 
FILLER entries describing these 
areas. The second reason is that the 
specifications of the program state 
that the social security number is to 
be punctuated by dashes. In our re- 
cord description in the Working-Stor- 
age section we have also defined our 
social security as a group item. But 
we have separated each sub- item 
with a FILLER entry which includes 
a VALUE IS '-' clause. This will 
cause the symbol '-' to be placed in 
this position when the program is 
loaded. The VALUE clause cannot be 
used in the File Section to establish a 
constant. It can only appear in the 
File Section in conjunction with a 
condition- name entry. You may be 
wondering why we simply did not 
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write our record-description in the 
File Section and define our social 
security number field with an editing 
picture consisting of 999-99-9999. 
The dash - or minus sign - can only 
appear at the left or right end of an 
editing picture. Secondly, it can func- 
tion only as an indicator of a negative 
amount and cannot be used as a dash 
to punctuate an item. Our editing pic- 
ture to edit the year-to-date earnings 
amount appears in the entry on line 
050 of page 2. 

The Procedure division begins with 
the division header entry on line 070 
of page 2. The first paragraph of the 
division, on line 090, opens the input 
and output files and prepares them for 
proces sing. 

Our READ statement is on lines 
110 and 120. The AT END imperative 
statements specify that the files are 
to be closed and the run halted when 
this condition occurs. Stop for a mo- 
ment and see if you can determine 
what would happen if the word PRINT- 
FILE in the READ statement were fol- 
lowed by a period instead of a comma. 

When the READ statement is exe- 
cuted, a test is made to determine if 
end- of- file has occured. If it has, the 
imperative statements following the 
reserved words AT END are executed. 


If not, control flows to the next sen- 
tence or paragraph. If PRINTFILE 
were followed by a period instead of 
a comma, the first card would be 
read and since end-of-file has not oc- 
curred, control would flow to the next 
sentence. The program would come 
to an immediate stop and no other 
cards would be read. 

Our output record is built by the 
statements in the paragraph named 
PROCESS-CARD. The fields are 
moved from our input area to our 
work area defined in the Working- 
Storage s ection. The last MOVE state- 
ment (MOVE PAY TO EARNINGS) 
will cause our data to be edited in 
accordance with the editing picture. 
We then write our line from OUTPUT- 
RECORD. The last sentence in the 
paragraph causes a branch back to 
READ -A- CARD. 

Earlier we had stated that the rea- 
son our record was being built in a 
Working-Storage area was to ensure 
that blank positions did, in fact, con- 
tain blanks and also to establish con- 
stants to punctuate the social security 
number. There is a way in which we 
can build our record directly in the 
output area and dispense with the 
working- storage area. For example, 
if our output file and record descrip- 
tion were: 


FD 

01 


PRINTFILE RECORDING MODE F, LABEL RECORDS ARE 
OMITTED, DATA RECORD IS PRINTED- LINE. 
PRINTED- LINE. 

02 FILLER PICTURE X(5). 

02 NAME PICTURE A(30). 

02 FILLER PICTURE X(5). 

02 NUMBER. 

03 GROUP- 1 PICTURE 999. 

03 DASH-1 PICTURE X. 

03 GROUP- 2 PICTURE 99. 

03 DASH-2 PICTURE X. 

03 GROUP- 3 PICTURE 9999. 

02 FILLER PICTURE X(10). 

02 EARNINGS PICTURE $Z, ZZZ. ZZ. 

02 FILLER PICTURE X(62). 
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To clear our output area we would 
add a sentence to the OPEN-FILES 
paragraph - 



The sentence MOVE SPACES TO After moving the three elements of 

PRINTED-LINE will cause the out- the social security number, we would 

put area to be cleared to blanks. Note punctuate the number with dashes by 

that we could not write MOVE SPACES adding the following statement to the 

TO FILLER since FILLER cannot be PROCESS- CARD paragraph, 

used as a data- name. 



Although this method achieves the TO DASH-1, DASH- 2' would have to 

same result, it is slightly less effi- be executed each time a line was to 

cient since the statement 'MOVE be printed. 
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Lesison C 7 


A standard card form, IBM electro C61897, is available for punching source statements from this form. 










